Envoyer email par VBA via smtp

[wisemanvsfatboy]

Tout d'abord bon samedi à tous,

je voudrais savoir quelle solution utilisé pour pouvoir envoyer un email en VBA sans devoir passer par un applicatif ( windows mail, outlook ), ni utiliser exchange et si possible sans devoir installer un add-on tier.

Le problème est que l'envoi doit se faire sur 4 pc distant utilisant chacun des adresses mail ( Hotmail, gmail, live ) et applicatif différent ( outlook, windows live ) quand il y en a une, sinon c'est en webmail.

Il ne me faut pas une solution pour la réception mais uniquement pour l'envoi ( smtp ).

J'ai pu lire sur le Net qu'il étais possible en smtp d'envoyer des email en inserant dans le code les informations de connection ( serveur smtp, port, username, password ) sans devoir passer par une application mail.

Hélas je n'ai pas réussi à trouver une solution à mon problème.

Merci d'avance pour vos idée.

[loufab]

Bonjour,

Il faut utiliser la bibliothèque CDO disponible à partir de Windows 2000.

Je suis étonné que tu n'es pas trouvé ton bonheur sur le net.

Sur Google cherche "VBA smtp"

Cordialement,

[wisemanvsfatboy]

Je viens de trouver ceci sur le Net :

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
Public Function SMTPSendMail(pstrTo As String, pstrSubject As String, Optional pvarAttachFile As Variant) As Boolean
 
On Error GoTo SMTPSendMail_Err
 
Dim i As Long
Dim objEmail As New CDO.Message
'Set objEmail = CreateObject("CDO.Message")
 
objEmail.From = MAIL_FROM
objEmail.To = pstrTo
objEmail.Subject = pstrSubject
 
' Aucun corps de message, uniquement la pièce jointe
' laisser un TextBody avec chaine vide, sinon le mail peut planter (pièce jointe incomplète)
objEmail.TextBody = ""
 
' Ajout de la pièce jointe, 1 ou plusieurs fichiers
If Not IsMissing(pvarAttachFile) Then
If IsArray(pvarAttachFile) Then
' parcourrir le tableau
For i = LBound(pvarAttachFile) To UBound(pvarAttachFile)
objEmail.AddAttachment pvarAttachFile(i)
Next i
Else
objEmail.AddAttachment pvarAttachFile ' "C:\temp\Bon de commande.pdf"
End If
End If
 
With objEmail.Configuration.Fields
.Item(CdoConfiguration.cdoSendUsingMethod) = MAIL_SENDUSING
.Item(CdoConfiguration.cdoSMTPAuthenticate) = MAIL_AUTHENTICATE
.Item(CdoConfiguration.cdoSendUserName) = MAIL_CPT_SENDUSR
.Item(CdoConfiguration.cdoSendPassword) = MAIL_CPT_SENDPASS
.Item(CdoConfiguration.cdoSMTPServer) = MAIL_SMTP_SERVER
.Item(CdoConfiguration.cdoSMTPServerPort) = MAIL_SMTP_SERVERPORT
.Update
End With
objEmail.Send
 
SMTPSendMail = True
Exit Function
SMTPSendMail_Err:
MsgBox Err.Description
 
End Function

Le code ci-dessus doit-il être dans le module ou le form ?

Il faut également déclarer les constantes mais je ne sais pas comment faire ?

Code :

1
2
3
4
5
6
7
8
9
 
' configuration SMTP pour envoi de mail
Public Const MAIL_SENDUSING = 2
Public Const MAIL_AUTHENTICATE = 1
Public Const MAIL_CPT_SENDUSR = "<nom du compte>"
Public Const MAIL_CPT_SENDPASS = "<passe du compte>"
Public Const MAIL_FROM = "<mail de l'expéditeur>"
Public Const MAIL_SMTP_SERVER = "<nom serveur>"
Public Const MAIL_SMTP_SERVERPORT = 25

Merci d'avance.

[pier.antoine]

Bonjour
Voici de quoi vous aider :

Envoyer des mails avec CDO

[FAQ] Envoi de mail en SMTP, CDO

Bonne journée
Pierre