Suite pb pour joindre un fichier dans un email

[Sylvain]

Bonjour,

Information complèmentaire:


Mon problème est d'envoyer un email avec une pièce jointe
avec un fichier automatiquement et pour ça je n'ai trouvé
aucune solution pour l'instant.

J'ai sois (automatiquement) l'ouverture d'un email avec
l'adresse du destinataire mais sans la pièce jointe avec
cette macro :

Sub MailOXpress()
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 = "Envoyé avec Outlook Express depuis Excel"
ChDir "C:\Donnees\VISITEUR MEDICAUX\Excel\"
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=" & texte & " "


'sendkeys "{ENTER}" pour envoyer le mail

End Sub



Soit j'ai l'ouverture d'un email avec la pièce jointe mais
sans le destinataire du message avec cette macro :


Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 14/08/02 par PIGEON SYLVAIN
'

'
Workbooks.Open FileName:= _
"C:\Donnees\VISITEUR MEDICAUX\Excel\Base de
données VISITEUR MEDICAUX.xls"
Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Close
End Sub



Mais je n'arrive pas à avoir le destinataire et la pièce
jointe en même temps.

Merci pour votre aide

Sylvain

.

 

[STéphane]

bonjour sylvain


la boîte de dialogue xlDialogSendMail accepte trois paramètres : recipients, subject, return_receipt

recipients <=> les destinataires entre guillemets et séparés par une virgule
subject <=> signification évidente
return_receipt <=> à true si tu veux un accusé de réception

utilisation
return_value=application.dialogs arg1:="toto@totoworld.com,zaza@totoworld.com", arg2:="Hello ToToWorld",arg3:=false

rappelons que l'inconvénient est que tu ne peux indiquer un corps de message


bye
Stéphane

 

[Sylvain]

Salut Stéphane,

Je dois être franchement nul car j'essaie d'appliquer ce que tu m'indiques mais cela ne fonctionne pas. Je reste toujours avec ma zone destinataire à blanc. Je suis obligé de la taper manuellement.

A+
Sylvain