JBOBO
XLDnaute Accro
Bonjour,
J'ai actuellement une macro qui me permet d'envoyer un mail personnaliser à différents destinataires. Ca marche parfaitement.
Cependant je voudrais rajouter un élément et la je bloque totalement.
En effet les messages peuvent être envoyés depuis plusieurs postes, donc par différents expéditeurs.
Je voudrais savoir si il est possible de récupérer d'une façon ou d'une autre
le nom ou l'adresse mail et de la placer dans une cellule de la feuille de calcul.
(question de traçabilité des envois.)
Ci joint la macro existante :
Sub cc2()
'Dim MonOutlook As New Outlook.Application, MonMessage As Object
'Tri des listes
Sheets("Liste").Select
'tri de liste
Call Macro3
Sheets("Clients externes").Select
'Envoi des mails
A = Cells(1, "W")
B = Cells(2, "W")
For i = A To B
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
With MonMessage
'ad = destinataires
ad = Cells(i, "T").Value
'corps = corps du message
corps = Cells(i, "V").Value
If ad <> "" Then .To = ad 'ad est soit déterminé dans la macro ou à saisir dans le champ adresse manuellement
.Subject = "Chantier " & Cells(i, "D").Value & " - " & Cells(i, "E").Value & " - Factures clients arrivant à échéances"
.Body = "Bonjour," & vbCrLf & "Attention !! Ces factures arrivent à échéances :" & vbCrLf & vbCrLf & corps & vbCrLf & vbCrLf & "Cordialement" & vbCrLf & vbCrLf & "TARTENPION " & vbCrLf & "FONCTION" & vbCrLf & "SOCIETE" & vbCrLf & "TELEPHONE" & vbCrLf & "FAX"
If ad <> "" Then
'mettre en Bleu les destinataires ayant reçu leur mail
Cells(i, "F").Font.ColorIndex = 5
Cells(i, "G").Font.ColorIndex = 5
'cochez case si mail envoyé
Cells(i, "w").FormulaR1C1 = "x"
.display
'.Send
Else
Set MonMessage = Nothing
Set MonOutlook = Nothing
End If
End With
Next i
End Sub
J'ai actuellement une macro qui me permet d'envoyer un mail personnaliser à différents destinataires. Ca marche parfaitement.
Cependant je voudrais rajouter un élément et la je bloque totalement.
En effet les messages peuvent être envoyés depuis plusieurs postes, donc par différents expéditeurs.
Je voudrais savoir si il est possible de récupérer d'une façon ou d'une autre
le nom ou l'adresse mail et de la placer dans une cellule de la feuille de calcul.
(question de traçabilité des envois.)
Ci joint la macro existante :
Sub cc2()
'Dim MonOutlook As New Outlook.Application, MonMessage As Object
'Tri des listes
Sheets("Liste").Select
'tri de liste
Call Macro3
Sheets("Clients externes").Select
'Envoi des mails
A = Cells(1, "W")
B = Cells(2, "W")
For i = A To B
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
With MonMessage
'ad = destinataires
ad = Cells(i, "T").Value
'corps = corps du message
corps = Cells(i, "V").Value
If ad <> "" Then .To = ad 'ad est soit déterminé dans la macro ou à saisir dans le champ adresse manuellement
.Subject = "Chantier " & Cells(i, "D").Value & " - " & Cells(i, "E").Value & " - Factures clients arrivant à échéances"
.Body = "Bonjour," & vbCrLf & "Attention !! Ces factures arrivent à échéances :" & vbCrLf & vbCrLf & corps & vbCrLf & vbCrLf & "Cordialement" & vbCrLf & vbCrLf & "TARTENPION " & vbCrLf & "FONCTION" & vbCrLf & "SOCIETE" & vbCrLf & "TELEPHONE" & vbCrLf & "FAX"
If ad <> "" Then
'mettre en Bleu les destinataires ayant reçu leur mail
Cells(i, "F").Font.ColorIndex = 5
Cells(i, "G").Font.ColorIndex = 5
'cochez case si mail envoyé
Cells(i, "w").FormulaR1C1 = "x"
.display
'.Send
Else
Set MonMessage = Nothing
Set MonOutlook = Nothing
End If
End With
Next i
End Sub