Recuperer Expediteur Mail Outlook Dans Cellule Excel

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
 

JBOBO

XLDnaute Accro
Re : Recuperer Expediteur Mail Outlook Dans Cellule Excel

Merci beaucoup
je vais regarder tout ça mais mes connaissances en macro etant limité je ne sais pas si je saurais adapter qq chose.
donc à tout hasard si quelqu'un sait adapter à la macro présente plus haut dans ce post je suis preneur sinon j'essaerai tant bien que mal de m'en sortir.

Merci toutefois pour ces réponses.

A+
JCh.
 

Discussions similaires

Réponses
6
Affichages
268
Réponses
6
Affichages
202

Statistiques des forums

Discussions
311 707
Messages
2 081 746
Membres
101 812
dernier inscrit
trufu