Comment Attacher un fichier a un mail

Ubaye - 29 mars 2001 à 23:38
webcyril Messages postés 16 Date d'inscription jeudi 1 février 2001 Statut Membre Dernière intervention 9 novembre 2004 - 24 août 2004 à 14:43
je sais comment avec ShellExecute mettre une adresse de Mail son sujet et écrire du texte mais pas Joindre un fichier si une personne peut m'aider se serais sympa merci
Thierry :-)

ce que je sais.

Private Sub Mécrire()
EnvoyEmail "thierry.04@free.fr", "Sujet", "----- Message -----", Me
End Sub

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd&, ByVal lpOperation$, ByVal lpFile$, ByVal lpParameters$, ByVal lpDirectory$, ByVal nShowCmd&) As Long

Public Sub EnvoyEmail(Email As String, Objet As String, Texte As String, Feuille As Form)
Dim p
p = ShellExecute(Feuille.hwnd, "open", "mailto:" & Email & "?Subject=" & Objet & "&Body=" & Texte, 0&, 0&, 1)
End Sub

1 réponse

webcyril Messages postés 16 Date d'inscription jeudi 1 février 2001 Statut Membre Dernière intervention 9 novembre 2004
24 août 2004 à 14:43
Tu as trouvé la solution car ça m'interresse aussi ??

webcyril
0
Rejoignez-nous