Discussion :

[bartimeus35]

Bonjour,
Mon code pour envoyer des mails es le suivant,

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
 
....
    Dim msg, Style, titre
    Dim NewMail As Object
    Dim mailConfig As Object
    Dim fields As Variant
    Dim msConfigURL As String
 
    Set NewMail = CreateObject("CDO.Message")
    Set mailConfig = CreateObject("CDO.Configuration")
 
    M_from = get_constante("mail_expediteur")
 
 
    ' load all default configurations
    mailConfig.Load -1
 
    Set fields = mailConfig.fields
 
    With NewMail
        .Subject = "SUJET DU MAIL"
        .From = "francois@gmail.com"
        .To = "client@gmail.com"
 
        .TextBody = "youpi tralala pouet pouet "
 
        .AddAttachment get_constante("RIB_pdf")
        .AddAttachment p_PJ
    End With
 
 
    msConfigURL = "http://schemas.microsoft.com/cdo/configuration"
 
    With fields
        'Enable SSL Authentication
        .Item(msConfigURL & "/smtpusessl") = get_constante("smtp_usessl")
 
        .Item(msConfigURL & "/smtpauthenticate") = 1
 
        'Set the SMTP server and port Details
        .Item(msConfigURL & "/smtpserver") = get_constante("smtp_server")
        .Item(msConfigURL & "/smtpserverport") = get_constante("smtp_serverport")
        .Item(msConfigURL & "/sendusing") = 2
 
        'Set your credentials of your Gmail Account
        .Item(msConfigURL & "/sendusername") = "francois@gmail.com"
        .Item(msConfigURL & "/sendpassword") = "mon _pwd"
 
        'Update the configuration fields
        .Update
 
    End With
    NewMail.Configuration = mailConfig
 
            NewMail.Send

Ça marche nickel mais je voudrais faire 2 changements :

1. que le destinataire voie comme expéditeur "TOTO" et non pas francois@gmail.com
2. et que l'adresse de réponse (s'il veut y répondre) soit noreply@gmail.com au lieu de francois@gmail.com

Je cherche mais impossible de trouver des infos.
J'ai besoin de ca car l’utilisateur de la BDD passe par un WEBMAIL perso et je veux que le destinataire ne s'en rende pas compte, donc s'il répond, c'est soit a norply, soit à l'@ perso de l’utilisateur de la BDD .
J’espère que je sui clair ds mes explications...
Mille Mercis d'avance

[bartimeus35]

Trouvé, il suffit de mettre:

Code :

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

1
2
3
 With NewMail
        .Subject = "SUJET DU MAIL"
        .From = "TOTO <noreply@gmail.com>"