Ubaye
-
29 mars 2001 à 23:38
webcyril
Messages postés16Date d'inscriptionjeudi 1 février 2001StatutMembreDerniè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