Discussion :

[Korleone]

Bonjour a tous, je souhaite utiliser une procédure qui permet d'envoyer un e-mail lors d'un événement bien précis.
J'utilise la procédure suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function SendMail_Outlook()
 
'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
 
   Dim ol As New Outlook.Application
   Dim olmail As MailItem
   Dim CurrFile As String
 
   Set ol = New Outlook.Application
   Set olmail = ol.CreateItem(olMailItem)
   With olmail
      .To = "Nom du contact"
      .Subject = "Sujet du message"
      .Body = "Corps du message"
      .Send
   End With
End Function

Ça fonctionne très bien, cependant il s'agit de surveillance, et donc, ce programme est lancé automatiquement depuis le PC. Il faut éviter que l'utilisateur ne rentre l'adresse mail de destination qui soit la même que le PC expéditeur, car Outlook voit une tentative de piratage et demande de valider.

En bref, il me faudrait connaitre la fonction qui me donne l'adresse mail depuis laquelle ce mail sera envoyé afin de pouvoir la comparer avec celle du destinataire.
J'ai essayé pas mal de choses, mais sans résultat.
Merci de l'aide ;-)

Je me permet de reposer la question différemment :
Peut-on connaitre l'adresse mail par défaut utlisée par Outlook.

[casavba]

Bonjour,

Je te renvoie à la propriété "SendUsingAccount" .

Bonne journée

[Korleone]

Merci de ton aide, mais je n'arrive pas à utiliser cette propriété.

Il faudrait que j'écrive quelque chose du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AdresseMail = olmail.SendUsingAccount

, mais ça ne marche pas...