Recuperer Expediteur Mail Outlook Dans Cellule Excel

[JBOBO]

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

 

[Staple1600]

Re : Recuperer Expediteur Mail Outlook Dans Cellule Excel

Bonjour



Dans ces posts, peut-être des infos utiles


https://www.excel-downloads.com/thr...ents-envoyes-outlook-express-seulement.77389/
et dans celui là aussi
https://www.excel-downloads.com/threads/extraire-files-d-emails-regroupes-ds-dossier.75807/

 

[JBOBO]

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.

 

[MichelXld]

Re : Recuperer Expediteur Mail Outlook Dans Cellule Excel

bonsoir


tu peux utiliser

Set MonOutlook = CreateObject("Outlook.Application")
MsgBox MonOutlook.Session.CurrentUser.Name

Bonne soirée
MichelXld

 

[JBOBO]

Re : Recuperer Expediteur Mail Outlook Dans Cellule Excel

Merci bien ça marche.
Le seul "hic" est l'obligation de cliquer sur oui lors du message de securité. Y a t'il un moyen de le contourner ?