PB POUR JOINDRE UN FICHIER

[Sylvain]

Bonjour,

je veux envoyer un fichier via une macro mes je n'arrive pas à attacher (à joindre) le document que je souhaite.
Voici ma macro :
Workbooks.Open FileName:= _
"C:\Donnees\VISITEUR MEDICAUX\Excel\Base de données VISITEUR MEDICAUX.xls"



Dim dest$, sujet$, texte$

dest = "sylvain.pigeon@axa-assurances.fr"
sujet = "Envoie fichier vm"
texte = "Envoie base excel Visiteur Médicaux"
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=" & texte & " "


'sendkeys "{ENTER}" pour envoyer le mail


Merci de votre aide
Sylvain

 

[STéphane]

bonjour

cette méthode est une de celles notamment exposées sur mon site, mais elle ne permet pas l'attachement.

tu devras plutôt utliser ceci :
ActiveWorkbook.SendMail recipients:="Toto@totoworld.com,Tata"

NB : cette méthode permet aussi l'envoie d'une feuille unique :
sub feuille_demo_envoi
activesheet.copy 'pour créer un nouveau classeur par copie de la feuille en cours
ActiveWorkbook.SendMail recipients:="Toto@totoworld.com,Tata"
end sub

le hic avec cette méthode c'est que tu ne peux changer le contenu du message.

si tu as outlook (et non pas outlook express), regarde sur mes pages pour d'autres solutions : <http://xlbysteph.free.fr/aideinformatique/web.htm>

bye
Stéphane

 

[Sylvain]

Salut Stéphane,

Merci pour ton aide mes cela ne fonctionne pas. J'ai déjà regardé là où de me l'indique mes je n'ai rien trouvé.

Je continu à chercher

Tchao
Sylvain

 

[Bruno]

Bonjour Sylvain,

Ouvre ton fichier et lance cet macro pour moi ca marche.

Sub Mail()
Application.Dialogs(xlDialogSendMail).Show
End Sub

A+

 

[STéphane]

sylvain

les méthodes pour Microsoft Outlook doivent marcher, aux erreurs d'écriture près à condition si au préalable tu rajoutes une référence à Microsoft Outlook Object Library (la référence doit avoir un nom de ce genre)

mes exemples sont les mêmes que ceux qui t'ont été fournis sur mpfe.


tu as pu remarqué ma remarque au sujet des attachements dans ma page.


bye
Stéphane