Hello,
Sous MS-Access en VBA, je cherche à envoyer un mail avec un fichier attaché via la commande shellExecute et je cale !
Mon code:
' déclaration API
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd&, ByVal lpOperation$, ByVal lpFile$, ByVal lpParameters$, ByVal lpDirectory$, ByVal nShowCmd&) As Long
Private Sub cmdEnvoyer_Click()
' envoi du mail
PRSendEmail Me, "c.rere@tiscali.fr", "xx.yy@tf1.fr", "Test depuis MS-Access", "Ceci est un test de mail depuis MS-Access"
End Sub
Public Sub PRSendEmail(p_Feuille As Form, p_sEmailTo As String, p_sEmailCC As String, p_sEmailObjet As String, p_sEmailTexte As String)
Dim lres As Long
Dim sURL As String
' ouverture du message dans messagerie par défaut
sURL = "mailto:" & p_sEmailTo & _
"?cc=" & p_sEmailCC & _
"?subject=" & p_sEmailObjet & _
"&body=" & p_sEmailTexte & _
"&attachment=" & "c:\temp\tst.txt"
lres = ShellExecute(p_Feuille.hwnd, "open", sURL, _
vbNullString, vbNullString, vbNormalFocus)
End Sub
Je n'arrive pas à trouver la syntaxe !!
Il semble qu'il faille utiliser ?attachment= mais je n'y arrive pas !
Merci de votre aide !
webcyril