Envoi de mail avec outlook avec quelle méthode

**lololebricoleur** · 15/12/2019, 19h08

Bonjour,

Je vois qu'il y a plusieurs "méthode" pour envoyer des mails via outlook depuis le VBA Access et j'aimerais avoir votre avis sur les différences, les avantages, les inconvénients...

première méthode avec ce genre de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Btn_Mail_Click()
Dim MonApp As Object
Dim MonMail As Object
Dim strMsg As String
Set MonApp = CreateObject("Outlook.Application")
Set MonMail = OutApp.CreateItem(0)
 
strMsg = "<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>"
strMsg = strMsg & "<html xmlns='http://www.w3.org/1999/xhtml'>"
strMsg = strMsg & "<body>"
strMsg = strMsg & "<p>Bonjour,"
strMsg = strMsg & "<br /><br />Message.<br />"
strMsg = strMsg & "</tr>"
strMsg = strMsg & "</table>"
strMsg = strMsg & "<br />"
strMsg = strMsg & "</html>"
With OutMail
 .Subject = "Sijet du mail"
 .HTMLBody = strMsg
 .Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Deuxième méthode avec ce genre de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub B_Envoyer_Click()
 
    'Déclaration des variables
    Dim MonOutlook As New Outlook.Application
    Dim MonMessage As Outlook.MailItem
    Dim MyAttachments As Outlook.Attachments
    Dim Msg As String
    Dim Signature As String
 
    'Initialisation des objets
    Set MonMessage = MonOutlook.CreateItem(0)
    Set MyAttachments = MonMessage.Attachments
 
    'Signature
    If UTI_Signature <> "" Then
        Select Case DLookup("UTI_Os", "UTIlisateur", "UTI_Num=" & Uti)
            Case 1
                strSign = Environ("appdata") & "\Microsoft\Signatures\" & UTI_Signature
            Case 2
                strSign = Environ("appdata") & "\Microsoft\Signatures\" & UTI_Signature
            Case 3
                strSign = Environ("appdata") & "\Microsoft\Signatures\" & UTI_Signature
            Case Else
                strSign = ""
        End Select
 
        If Dir(strSign) <> "" Then
            Signature = LireSignature(strSign)
        Else
            Signature = ""
        End If
    Else
        Signature = ""
    End If
 
    'Gestion des pièces jointes
    If Me.S_Bulletin_PDF = -1 Then
        DoCmd.OutputTo acOutputReport, "E_Doc_Envoi_Info_Bi", acFormatPDF, Chemin & "Bulletin d'inscription.pdf"
        MyAttachments.Add Chemin & "Bulletin d'inscription.pdf"
    End If
 
    'Création du message
    IntroAuto = "<FONT size='2'><FONT face='tahoma'>Bonjour,<br/><br/>Comme convenu, veuillez trouver ci-joints les documents et les informations relatifs à la formation : " & DLookup("STA_Titre", "STAge", "STA_Num =" & Me.SES_STA) & "."
    IntroLibre = "Bonjour,"
 
    Msg = Msg & "<br/><br/>Je reste à votre disposition pour toute information complémentaire, n'hésitez pas à me contacter.<br/><br/>Bien cordialement,"
 
    With MonMessage
        .To = Me.Destinataire 'destinataire
        .Subject = Me.Objet 'objet
        .HTMLBody = Msg & "<br/>" & Signature
        .Display
    End With
 
    'désallocation des objets
    Jeu_Enr.Close
    Set MonOutlook = Nothing
    Set Con = Nothing
 
End Sub

Merci de vos commentaires

**Zekraoui_Jakani** · 15/12/2019, 22h58

Personnellement, je ne me pas trop de questions; du moment que ça répond à mes besoins, j'achète; quitte à apporter quelques modifications de maquillage par ci, par là !

Envoi de mail avec outlook avec quelle méthode

VBA Access

Discussions similaires

Partager

Partager