Voir le 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() PRSendEmail Me, "cyril.carrere@total.com", "Test depuis MS-Access", "Ceci est un test de mail depuis MS-Access" End Sub
Public Sub PRSendEmail(p_Feuille As Form, p_sEmail As String, p_sObjet As String, p_sTexte As String) Dim lres As Long ' ouverture du message dans messagerie par défaut lres = ShellExecute(p_Feuille.hwnd, "open", "mailto:" & p_sEmail & "?Subject=" & p_sObjet & "&Body=" & p_sTexte, 0&, 0&, 1) End Sub
webcyril
|