Envoi mail via Excel avec expediteur different de mon compte

Bonjour à tous,

je cherche une macro qui pourrait me permettre d'envoyer un mail par excel, mais d'ou le message partirait pas de mon compte par défaut, mais d'un autre compte ou j'ai accés.

Donc à la place de mail pro, je voudrais que la macro utilise le mail perso.

Voici mon code

Sub EnvoiMailSimple()

Set olApp = CreateObject("Outlook.Application")

Set msg = olApp.CreateItem(0)

msg.To = "mail du destinataire"

msg.Subject = "Meilleurs voeux 2007!"

corps = "Cher Monsieur" & Chr(13) & Chr(13)

corps = corps & "Meilleurs voeux 2007"

msg.Body = corps

'msg.Attachments.Add "c:\mes documents\x.doc"

msg.Send

End Sub

Merci par avance pour votre aide.

Bonne journée

Laurent

Bonjour Lolo69490

Pour ta demande, tu ne dois pas utiliser une automation Outlook, mais passer par le protocole CDO

Voici un lien intéressant : http://www.rondebruin.nl/win/s1/cdo.htm

Attention ! en entreprise tu passes par un proxy il faudra faire le paramétrage dans le code

Cordialement

Bonjour BrunoM45,

je suis désolé, mais mon niveau d'anglais ne me permet pas de tout bien comprendre ...

j'avoue meme que j'ai pas compris grand chose ... Aurais-tu la gentillesse de m'expliquer en francais ?

Je sais j'abuse

Merci pour ton aide.

Bonsoir

Essaye ce code en changeant les paramètres

Dim NewMail As Object 
Set NewMail = CreateObject("CDO.Message") 
With NewMail 
   .Subject = "my subject here"
   .From = "user@gmail.com"
   .To = "receiver@gmail.com"
   .CC = "" 
   .BCC = "" 
   .TextBody = "my text body here"
   .AddAttachment "myattach.pdf"
   .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/urlproxyserver") = "proxy.server:8080"
    Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/urlproxybypass") = "<local>"
   .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 
   .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
   .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user@gmail.com" 
   .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" 
   .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 
   .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
   .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 
   .Update 
End With 
NewMail.Send

Voili, voilà

désolé, mais là je comprends plus rien ... je pense que je vais aller me coucher, car j'arrive meme pas a recopier ta formule et à la lancer, j'ai des messages d'erreur ... je vois ça demain

Bonne nuit