Envois mail yahoo en vba sans outlook

**electrosat03** · 18/10/2013, 10h16

Salut,

Je sais qu'il y a déjà pleins de post sur le sujet, mais j'ai bon essayer plusieurs pistes, je n'y arrive pas.

Voici le dernier code que j'ai essayé

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
61
62
63
64
65
66
 ---------------------------------------------------------
' Email html par Gmail
' ---------------------------------------------------------
Function TestCDOsys_2()
' Microsoft CDO Library for windows 2000
Dim MyMail As CDO.Message
Dim cdoConf As CDO.Configuration
' SMTP GMAIL
Const strSMTPserver = "smtp.gmail.com"
Const strSMTPport = 465
Const strMailUserName = "monAdresse@gmail.com"
Const strMailUserPwd = "mon-mot-de-passe"
 
' Crée un nouvel objet email
Set MyMail = New CDO.Message
' Émetteur (Facultatif)
MyMail.From = """Mon Nom"" <monAdresse@gmail.com>"
' Destinataire
MyMail.To = """Nom Destinataire"" <a href="mailto:AdresseDestinataire@domaine.com">AdresseDestinataire@domaine.com</a>"
' Sujet
MyMail.Subject = "Test CDOSYS"
' Copies (Facultatif)
'MyMail.CC = CopieCarbonne
'MyMail.BCC = CopieCarbonneCachee
 
' Message HTML
'   En-tête du message HTML
MyMail.HTMLBody = _
"<html><head></head><body>"
'   Message
MyMail.HTMLBody = MyMail.HTMLBody & _
"Bonjour" & "<br>" & vbCrLf & "Comment ça va ?<br>" & vbCrLf & _
"<br>" & vbCrLf & _
"<a href=""http://www.developpez.net/forums/d1095248/logiciels/microsoft-office/access/envoyer-mail-daccess-via-gmail/"">Envoyer un mail d'Access via gmail</a><br>" & vbCrLf
'   Fin du message HTML
MyMail.HTMLBody = MyMail.HTMLBody & _
"</body></html>"
 
' Fichier(s) à attacher
'MyMail.AddAttachment "C:\WINDOWS\dsofile.txt"
'MyMail.AddAttachment "C:\WINDOWS\Rhododendron.bmp"
 
' Configuration méthode d'envoie
Set cdoConf = MyMail.Configuration
'   Choix de la méthode d'envoie
'       cdoSendUsingPort   : SMTP à travers le réseau
'                            il faut renseigner cdoSMTPServer et cdoSMTPServerPort
'       cdoSendUsingPickup : Service SMTP local
cdoConf.Fields(CDO.CdoConfiguration.cdoSendUsingMethod) = CDO.CdoSendUsing.cdoSendUsingPort
'   Nom serveur SMTP
cdoConf.Fields(CDO.CdoConfiguration.cdoSMTPServer) = strSMTPserver
'   Port serveur SMTP
cdoConf.Fields(CDO.CdoConfiguration.cdoSMTPServerPort) = strSMTPport
'   Activation SSL True.False
cdoConf.Fields(CDO.CdoConfiguration.cdoSMTPUseSSL) = True
 
' Nom et mot de passe de l'utilisateur se connectant au serveur SMTP
cdoConf.Fields(CDO.CdoConfiguration.cdoSendUserName) = strMailUserName
cdoConf.Fields(CDO.CdoConfiguration.cdoSendPassword) = strMailUserPwd
 
cdoConf.Fields.Update
 
' Envoyer l'email
MyMail.Send
 
End Function

Il me renvoie une erreur:

Erreur d'exécution -2147220978 (8004020e) :
Le serveur à rejeté l'adresse de l"expéditeur. La réponse du serveur
était : 530 5.7.1 Authentification required

**electrosat03** · 18/10/2013, 15h04

Ok,

J'ai trouvé Application et méthode d'envoi de lettres d'information en CDO
Ca marche nickel, il faut que j'étudie le code pour garder se qu'il me faut.

A+

**electrosat03** · 18/10/2013, 18h28

Bon,

Je reviens vers vous car dans cette appli, je n'arrive pas à ce que la table que j'ai créée ne soit prise en compte dans les listes déroulante.

J'ai pourtant ajouté le champ date inscription qui est un champ commun à toutes les tables.

Je ne vois pas pourquoi.

Si vous pouviez me dire pourquoi.
C'est une table que j'ai importée d'une autre appli car 1200 clients.
J'ai modifié les champs qu'il fallait pour que ce soit identique aux autres.

Merci
A+

**dumas.blr** · 21/10/2013, 17h59

Le nouveau post semble ne pas parler du même sujet que ceux que tu as postés avant ...

Peux tu nous communiquer plus de billes ?

**electrosat03** · 21/10/2013, 19h26

Salut,

Si tu regarde mon post précédent, tu lira que j'ai trouvé une appli pour l’envoi de mail à des groupes, c'est ce dont je cherchais.

Cela fonctionne à part se que je signale et le signe € est remplacé par un ? dans le mail reçu??

Merci
A+

Invité · 21/10/2013, 19h56

Envoyé par electrosat03

Cela fonctionne à part se que je signale et le signe € est remplacé par un ? dans le mail reçu??

Merci
A+

Réponses données.

**tee_grandbois** · 29/10/2013, 09h35

Envoyé par electrosat03
Cela fonctionne à part se que je signale et le signe € est remplacé par un ? dans le mail reçu??

Merci
A+

Bonjour,
ajoute cette instruction :

Code :

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

MyMail.Charset = "utf-8"

juste avant :

Code :

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

1
2
3
MyMail.HTMLBody = _
"<html><head></head><body>"
'   Message

Il y a aussi un article qui aborde le sujet ici même si le sujet est le site web, cela reste valable aussi pour les envois de mail.

**loufab** · 29/10/2013, 09h58

Bonjour,
J'ai des problèmes avec le utf-8 et la correction que fait ACCESS sur certains caractères, notamment le OE.

J'utilise "Windows-1252" par contre je n'ai pas eu de retour de destinataires hors Windows 1252.

Quelqu'un a pu expérimenter ce code ?

Cordialement,

**electrosat03** · 29/10/2013, 16h05

Salut,

Merci Loufab, j'essaie dès que j'ai un peu de temps.

A+

**dadu35** · 20/11/2015, 17h57

Envoyé par electrosat03

Ok,

J'ai trouvé Application et méthode d'envoi de lettres d'information en CDO
Ca marche nickel, il faut que j'étudie le code pour garder se qu'il me faut.

A+

Bonkour,

je trouve ton post.
J'ai un souci d'envoi mail par EXCEL VBA, sachant que j'ai une adresse GMAIL, donc je dois paramétrer pour un serveur GMAIL.
Peux-tu me transmettre ton code que je le teste ?
Merci
Cdt.
Daniel

Envois mail yahoo en vba sans outlook [AC-2010]

VBA Access

Discussions similaires

Partager

Partager