L'informatique à votre portée
L'informatique prêt-à-porter

Faites appel à moi pour vos formations
sur les dpts 81, 31, 82, 11 et 67 (Strasbourg)
Confiez moi vos développements Office

FacebookTwitterGoogle BookmarksLinkedin

Envoyer un courriel

Imprimer E-mail
5 mars 2014

Insérer dans un module le code suivant :

    'ne modifiez surtout pas les déclarations suivantes

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

Private Const SW_SHOWNORMAL = 1

Public Sub SendMail(Optional strAdr As String, 
 Optional strObj As String, Optional strBody As String, Optional strCC As String, Optional strBCC As String)
    ' Optional permet de ne pas obligatoirement fournir la donnée lors de l'appel de la procédure

    Dim strCommand As String    
    'Construction du message

    'Sujet du message

    If Len(strObj) Then strCommand = "&Subject=" & strObj

    'Corps du message

    If Len(strBody) Then strCommand = strCommand & "&Body=" & strBody

    'Copie du message (adresse email attendue)

    If Len(strCC) Then strCommand = strCommand & "&CC=" & strCC 

   'Copie cachée du message

    If Len(strBCC) Then strCommand = strCommand & "&BCC=" & strBCC

    'Ajout de l'adresse email à la ligne de commande

    strCommand = "mailto:" & strAdr & strCommand

    'Execution de la commande via l'API

    Call ShellExecute(0, "open", strCommand, vbNullString, vbNullString, SW_SHOWNORMAL)
End Sub

'Procédure exemple pour déclencher l'envoi du mail

Private Sub EssaiEnvoi()

    SendMail "Cette adresse e-mail est protégée contre les robots spammeurs. Vous devez activer le JavaScript pour la visualiser.", "sujet", "message", "Cette adresse e-mail est protégée contre les robots spammeurs. Vous devez activer le JavaScript pour la visualiser.", "Cette adresse e-mail est protégée contre les robots spammeurs. Vous devez activer le JavaScript pour la visualiser."
End Sub