Probleme envoi email VBA
Bonjour,
J'essaie d'envoyer des emails en fonction d'une date. Cela fonctionne tant que je ne doit pas envoyer 2 emails à la même personne pour deux lignes différentes... Pouvez vous m'aider SVP ?
Ci joint mon fichier excel pour avoir le code
Merci beaucoup
Bonjour,
essaie en modifiant ainsi :
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
'-----
'-----
Set oBjMail = Nothing
Next i
Bonjour,
essaie en modifiant ainsi :
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Set oBjMail = ObjOutlook.CreateItem(olMailItem) '----- '----- Set oBjMail = Nothing Next i
Je te remercie pour ta réponse
par contre je n'arrive pas a le placer correctement pour que ça fonctionne
Merci beaucoup à toi et à la communauté d'être autant réactif
Re,
Essaie donc ainsi :
Sub Envoyer_Mail_Outlook()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String
Set ObjOutlook = New Outlook.Application
'---------------------------------------------------------
'Exemple pour envoyer un classeur en pi?ce jointe
'Nom_Fichier = Application.GetOpenFilename("Fichier excel (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm")
'If Nom_Fichier = "Faux" Then Exit Sub
'---------------------------------------------------------
'Ou bien entrer le path et nom du fichier autrement
Nom_Fichier = "C:\Chemin\NomFichier.ext"
If Nom_Fichier = "" Then Exit Sub
'---------------------------------------------------------
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Date >= Range("E" & 3 + i) And Range("E" & 3 + i) <> "" Then
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
With oBjMail
.To = Range("H" & 3 + i) 'le destinataire
.Subject = "CONTROLE TECHNIQUE A FAIRE AVANT " & Range("D" & 3 + i) & " " ' l'objet du mail
.Body = "Bonjour, La date du contr?le technique de la voiture immatricul? " & Range("B" & 3 + i) & _
" en date du " & Range("D" & 3 + i) & " arrive ? terme. Merci de faire le n?cessaire." 'le corps du mail ..son contenu
'.Attachments.Add Nom_Fichier '"C:\Data\essai.txt" ' ou Nomfichier
.Display ' Ici on peut supprimer pour l'envoyer sans v?rification
.Send
End With
Set oBjMail = Nothing
End If
Next i
ObjOutlook.Quit
Set ObjOutlook = Nothing
End Sub