Ce code écrit en VB6 permet d'envoyer un mail à partir d'une application VB. Il utilise l'API shell32. Un click sur le bouton de commande entraîne l'ouverture d'une fenêtre de la messagerie par défaut (Outlook, Outlook Express) en renseignant les champs destinataire (adresse mail), sujet et corps du message.
Source / Exemple :
Option Explicit
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 Address As String, _
Optional Subject As String, Optional Body As String, _
Optional CC As String, Optional BCC As String)
Dim strCommand As String
'Construction du message
'Sujet du message
If Len(Subject) Then strCommand = "&Subject=" & Subject
'Corps du message
If Len(Body) Then strCommand = strCommand & "&Body=" & Body
'Copie du message (adresse email attendue)
If Len(CC) Then strCommand = strCommand & "&CC=" & CC
'Copie cachée du message
If Len(BCC) Then strCommand = strCommand & "&BCC=" & BCC
'Ajout de l'adresse email à la ligne de commande
strCommand = "mailto:" & Address & strCommand
'Execution de la commande via l'API
Call ShellExecute(Me.hwnd, "open", strCommand, _
vbNullString, vbNullString, SW_SHOWNORMAL)
End Sub
'Bouton de commande pour déclencher l'envoi du mail
Private Sub Command1_Click()
SendMail "email", "sujet", "message", "copie", "copie cachée"
End Sub
Conclusion :
Merci à tous de me faire part de vos remarques.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.