Envoi mail automatique selon limite de validité (Date)

S

Sebb06

XLDnaute Nouveau

• 23 Janvier 2015

• #16

Re : Envoi mail automatique selon limite de validité (Date)

Oui il est déjà ouvert.

 

Vote positif 0 Vote négatif

S

Sebb06

XLDnaute Nouveau

• 23 Janvier 2015

• #17

Re : Envoi mail automatique selon limite de validité (Date)

Oui il est déjà ouvert.

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 23 Janvier 2015

• #18

Re : Envoi mail automatique selon limite de validité (Date)

As-tu essayé en pas à pas pour voir d'où vient l'erreur ?

 

Vote positif 0 Vote négatif

S

Sebb06

XLDnaute Nouveau

• 23 Janvier 2015

• #19

Re : Envoi mail automatique selon limite de validité (Date)

Le pas à pas s'arrête au niveau du l'adresse mail.

Sub EnvoiMail()
Dim oApp As Outlook.Application
Dim oMail As MailItem, i&
Set oApp = CreateObject("Outlook.application")
Set oMail = oApp.CreateItem(olMailItem)
For i = 4 To [D65536].End(3).Row
If Now + 90 > Cells(i, 4) Then
With oMail
.To = "xxx.llll@hhhh.fr"
.Subject = "Limite validite Attestation Formateur"
.Body = "Bonjour," & Chr(10) & Cells(i, 3) & Chr(10) & Cells(i, 4) & Chr(10) & Cells(i, 2)
.Send
End With
End If
Next
End Sub

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 23 Janvier 2015

• #20

Re : Envoi mail automatique selon limite de validité (Date)

Désolé, si tes références sont bonnes et que Outlook est ouvert, je ne vois pas d'où ça peut venir ????
Ne pouvant pas reproduire ton problème, il m'est difficile de répondre. Si quelqu'un passe par là et peut résoudre ce problème, qu'il n'hésite pas.
Je vais continuer à chercher

A+

 

Vote positif 0 Vote négatif

S

Sebb06

XLDnaute Nouveau

• 29 Janvier 2015

• #21

Re : Envoi mail automatique selon limite de validité (Date)

Bonjour,

Déjà, Merci beaucoup Yaloo pour ton aide.
Pour l'instant la vérification des données se fait toujours uniquement sur la première rangée.
Je vais regarder de nouveau tout ce que j'ai enregistré, et si quelqu'un passe par içi et il est le bienvenu pour apporter ces lumières.

@+.

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 29 Janvier 2015

• #22

Re : Envoi mail automatique selon limite de validité (Date)

Bonjour Sebb, le forum,

Peux-tu nous mettre ton fichier ? Comme ça, on verra sur quoi tu travailles.
Nous dire où ça plante ? Si ça plante.
Nous dire ce que ça doit faire exactement ? Si ça ne fait pas le boulot.

A te relire

Martial

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 29 Janvier 2015

• #23

Re : Envoi mail automatique selon limite de validité (Date)

Bonjour Martial , Seb ,

J'ai testé le code ,

et si la messagerie est ouverte et que les références bibliothèques sont ok , et que la feuille contenant le bouton est bien la même que celle contenant les données , cela fonctionne sans problème .

 

Vote positif 0 Vote négatif