générateur des emailsRésolu

Question

j'ai une base de donn&#233;es qui contient les adresses emails de mes coll&#232;ques. je veut developper une application qui permet de g&#233;n&#233;rer toute seule l'emission des emails aux adresses dans la base.

Zlub · Accepted Answer

Salut ihsen, C'est vrai qu'il y a pas mal de sources sur ce site pour envoyer des emails : voir cette liste Sinon, tu peux essayer ce code :

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 '-------------------------------------------------------------------------------------------------------- Public Sub SendMail(hwnd As Long, Optional Address As String, _ Optional Subject As String, Optional Body As String, _ Optional CC As String, Optional BCC As String) Const SW_SHOWNORMAL = 1 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(hwnd, "open", strCommand, _ vbNullString, vbNullString, SW_SHOWNORMAL) End Sub

++ Zlub

cs_jeanmarc · Answer

Bonjour,

Recherche sur "mail" dans le Forum, il y a x sources de disponible (VBA, VB6....VBS).
C'est une question r&#233;curante !!!

ShareVB · Answer

salut,



http://www.vbfrance.com/code.aspx?ID=33521

ShareVB

Générateur des emails

3 réponses

Discussions similaires