Envoyer un mail avec un code VBA

Version imprimable

04/02/2023, 16h48
ange111999

Envoyer un mail avec un code VBA

Bonjour je suis étudiante et j'ai un projet en VBA, je doit créer une interface utilisateur avec plusieurs paramètre de risque en gestion de portefeuille puis faire un fichier pdf en fonction des choix de l'utilisateurs et des mesures de risques qu'il a choisis et envoyer ce fichier (qui est un reporting) par mail.

J'ai déjà vu plusieurs discussions sur le forums, mais je n'arrive pas a savoir si c'est possible si je n'ai pas Microsoft Outlook, j'ai vu qu'on pouvais utiliser les les SMTP (CDO) mais je ne comprend pas bien le fonctionnement.
Mon enseignant va tester le programme donc il est difficile de fixer des choses, je voulais limiter le programme aux adresse mail gmail.

https://www.developpez.net/forums/d9...yer-mails-cdo/
https://www.developpez.net/forums/d2...mail-smtp-cdo/
https://www.developpez.net/forums/d2.../#post11918158

J'ai créer une interface où l'utilisateur a 5 TextBox : From, To, Objet, Corp du message, Chemin du fichier

Est ce que vous auriez des indications ? Ou vous pensez que ce n'est pas possible sans fixer certain point ?

Code:

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
 
Sub CDO_Mail_Small_Text_2()
    Dim iMsg As Object
    Dim iConf As Object
    Dim strbody As String
    Dim Flds As Variant
 
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
 
    iConf.Load -1    ' CDO Source Defaults
    Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "risktool2023@gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "M2IFIM2023"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
 
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        .Update
    End With
 
    strbody = "Hi there" & vbNewLine & vbNewLine & _
        "This is line 1" & vbNewLine & _
        "This is line 2" & vbNewLine & _
        "This is line 3" & vbNewLine & _
        "This is line 4"
 
    With iMsg
        Set .Configuration = iConf
        .To = "risktool2023@gmail.com"
        .CC = ""
        .BCC = ""
        ' Note: The reply address is not working if you use this Gmail example
        ' It will use your Gmail address automatic. But you can add this line
        ' to change the reply address  .ReplyTo = "Reply@something.nl"
        .From = """Angela"" <risktool2023@gmail.com>"
        .Subject = "Important message"
        .TextBody = strbody
        .Send
    End With
 
    Set iMsg = Nothing
    Set iConf = Nothing
    Set Flds = Nothing
End Sub

J'ai essayé ceci, et j'ai également essayé avec 25 en port mais ca me donne toujours l'erreur : Le message n'as pas pu être envoyé avec le serveur SMTP.Le code d'erreur de transport était 0x80040217. La réponse du serveur était not available.

05/02/2023, 16h46
Thumb down

Bonjour,
https://support.google.com/accounts/.../6010255?hl=fr