Envoyer un mail depuis excel - Sendkeys ne fonctionne pas.

Question

Bonjour &#224; tous.

Je suis programmeur occasionel , j'ai d&#233;couvert vb sous excel il y a 2 mois.

J'ai pass&#233; presque la journ&#233;e hier sur ce forum &#224; essayer tout un tas de codes 
me permettant d'envoyer un message mail excel avec un autre classeur en 
pi&#232;ce jointe.
Voici o&#249; j'en suis :
J'utilise un code pomp&#233; ici hier  &#224; base de shell qui appelle outlook express.
&#231;&#224; fonctionne, le message "de base" se cr&#233;e (destinataire, objet, corps).

Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & destinataire & _
"?subject=" & objet & _
"&Body=" & message, vbMaximizedFocus

Je pensais que la fonction sendkeys me permettrait d'envoyer les instructions
n&#233;cessaires &#224; outlook express pour finaliser (en fait ins&#233;rer la pi&#232;ce jointe et 
envoyer)

SendKeys "%I{ENTER}", False 'pour ins&#233;rer fichier
SendKeys file, False' Pour indiquer le nom du fichier &#224; joindre
SendKeys "%F{DOWN}{ENTER}", False' Pour faire envoyer maintenant

Que nenni !

Le message outlook se cr&#233;e et basta, la main reste dessus, elle ne revient pas
&#224; mon application excel.

O&#249; me suis-je tromp&#233; nom de ........?

Un grand merci &#224; tous ceux qui auront la bont&#233; de m'aider.....

@+ Mitch

cs_CanisLupus · Answer

Salut,

Il y a une autre m&#233;thode.

1 - Tu cr&#233;es une userform (userform1 pour l'ex)

2 - Dans le menu "Outils/Contr&#244;les suppl&#233;mentaires" tu ajoutes :
Microsoft MAPI Messages Control
et
Microsoft MAPI Session Control

3 - Tu poses 1 controle MAPISession et i controle MAPIMessages sur ta userform

4 - Tu cr&#233;es une macro (macro1) :

Private Sub Macro1()
  UserForm1.MAPISession1.SignOn


  UserForm1.MAPIMessages1.SessionID = UserForm1.MAPISession1.SessionID
  
  UserForm1.MAPIMessages1.Compose
  
' Adresse destinataire
  UserForm1.MAPIMessages1.RecipAddress = [mailto:destinataire@truc.machin destinataire@truc.machin]
'sujet du message
  UserForm1.MAPIMessages1.MsgSubject = "COUCOU"
'contenu du mail
  UserForm1.MAPIMessages1.MsgNoteText = "Bonne r&#233;ception"
'pi&#232;ces jointes
  UserForm1.MAPIMessages1.AttachmentPathName = "c:	emp	ruc.xls"
  
  UserForm1.MAPIMessages1.Send True
  
  UserForm1.MAPISession1.SignOff


End Sub

Tu ex&#233;cutes la macro et &#231;a devrait le faire.

Loup Gris

cs_Benur · Answer

Bonjour,
C'est dans le menu d'excel que tu trouves :"Outils/Contrôles supplémentaires" ?
Car chez moi j'ai pas !! Par contre est ce que ça marche avec OUtLOOK ?

Merci de ta réponse. Slts

cs_Benur · Answer

Bonjour,
C'est dans le menu d'excel que tu trouves :"Outils/Contrôles supplémentaires" ?
Car chez moi j'ai pas !! Par contre est ce que ça marche avec OUtLOOK ?

Merci de ta réponse. Slts

Envoyer un mail depuis excel - Sendkeys ne fonctionne pas.

3 réponses

Discussions similaires