S
Sylvain
Guest
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
.
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
.