OVH Cloud OVH Cloud

envoi d'un classeur par mail

1 réponse
Avatar
Michel Voirain
Bonjour à tous,

J'envoie des feuilles ou des classeurs en fichier joint avec VBA Excel sans
problèmes ....sauf qu'Outlook Express les envoit plusieurs fois sans que je
lui demande rien!!!

le code :
Dim dest$, sujet$, texte$

dest = "dest1@anpe.fr" & ";" & "dest2@anpe.fr" 'destinataire
sujet = "Envoi de machin"
texte = "Ci joint les 2 annexes "

Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=" & texte & ""

SendKeys "%I" & "p" & Chr(34) & annexe1 & Chr(34) & Chr(34) & annexe2&
Chr(34) & "%J" & "%s"

SendKeys "{ENTER}" 'pour envoyer le mail
'annexe1 et annexe2 sont des fichiers excel

1 réponse

Avatar
Michel Voirain
comme personne ne répond : je me répond
Serait-ce le fait d'avoir 2 fichiers joints qu'il l'envoit 2 fois!?
Car si j'en envoie qu'un, il n'en envoit qu'un!


"Michel Voirain" a écrit dans le message de
news: edd2$
Bonjour à tous,

J'envoie des feuilles ou des classeurs en fichier joint avec VBA Excel
sans problèmes ....sauf qu'Outlook Express les envoit plusieurs fois sans
que je lui demande rien!!!

le code :
Dim dest$, sujet$, texte$

dest = "" & ";" & "" 'destinataire
sujet = "Envoi de machin"
texte = "Ci joint les 2 annexes "

Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=" & texte & ""

SendKeys "%I" & "p" & Chr(34) & annexe1 & Chr(34) & Chr(34) & annexe2&
Chr(34) & "%J" & "%s"

SendKeys "{ENTER}" 'pour envoyer le mail
'annexe1 et annexe2 sont des fichiers excel