Envoi d'un message d'une autre adresse

**babybell** · 08/10/2010, 15h41

Amis du forum bonjour

Je rencontre un problème lorsque je veux envoyer un mail, sur mon poste, mais envoyé avec un autre UserName que le mien.
Voici mon code:

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
18
19
20
21
22
23
24
Sub Envois_des_mails()
Dim MonOutlook As Object, MonMessage As Object
 
expéditeur = "toto@adr.com"
 
Fichier = "C:\Test.xls"
 
Destinataire = "numéro1@adr.com"
Copies = "numéro2@adr.com;numéro3@adr.com;numéro4@adr.com"
 
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
 
MonMessage.NomExp = expéditeur
 
MonMessage.To = Destinataire
MonMessage.Cc = Copies
MonMessage.Subject = "TEST 2"
MonMessage.Body = "Test d'Envoi des Stats de la BAL "
MonMessage.Attachments.Add (Fichier)
MonMessage.Display
SendKeys "^{ENTER}"
Set MonOutlook = Nothing
End Sub

tout fonctionne bien, sauf au moment du nom de l'expéditeur.

L'un de vous pourrait-il m'aider, je l'en remercie par avance.

**Chipss** · 08/10/2010, 15h49

Hmm je suis pas un expert mais bon je pense que l'expediteur est en lecture seul car je vois pas cmt tu peut demander a outlook d'envoyer un mail a partir d'une adresse autre que la tienne!

Ce serait un peu nawak je pense sinon :p!

Si vraiment tu veut teste je crois que ce qui suit doit être mieux:

Code :

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

1
2
3
 
 
MonMail.SentOnBehalfOfName= expediteur

**babybell** · 08/10/2010, 16h01

Merci de ta réponse, mais cela ne fonctionne pas.
Je t'explique ma démarche.

nous avons une adresse générique(une BAL commune), et je voudrais que pour n'importe lequel d'entre nous qui créé le mail, l'adresse d'expédition soit cette BAL commune.

Code :

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