Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access
Recharger cette page [AC-2007] Envoyer automatiquement 2 mails ? [Résolu]
S'inscrire Règles FAQ Marquer les forums comme lus
Access Forum d'entraide sur Microsoft Access. Avant de poster -> La F.A.Q Access
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 05/07/2011, 10h40   #1
Invité régulier
 
Homme
Inscription : juin 2011
Messages : 34
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : Belgique

Informations forums :
Inscription : juin 2011
Messages : 34
Points : 5
Points : 5
Par défaut Envoyer automatiquement 2 mails ?
en suite à mon message :

http://www.developpez.net/forums/d10...l/#post6103076

je souhaiterais, sur le même procédé, envoyer les mêmes fichiers joints à une personne et en copie à une autre. Ou même mieux, envoyer 2 mails différents en cliquant sur un seul bouton. Que dois je ajouter comme commande (et où ?) ?

Grand merci pour votre aide
gsacre est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 05/07/2011, 18h45   #2
Modérateur
 
Homme René MAROT
Inscription : octobre 2005
Messages : 5 470
Détails du profil
Informations personnelles :
Nom : Homme René MAROT
Localisation : Canada

Informations forums :
Inscription : octobre 2005
Messages : 5 470
Points : 7 552
Points : 7 552
Pour la copie à une autre personne tu as déjà la réponse dans ton post précédent :

Code :
Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
' Copies (Facultatif)
'MyMail.CC = CopieCarbonne
'MyMail.BCC = CopieCarbonneCachee
Les lignes qui commencent par ' sont en commentaire, il te suffit de supprimer le ' pour qu'elles deviennent actives.

Pour ce qui est d'envoyer 2 mails séparés et bien il suffit d'envoyre 2 fois un mail :-).

Tu peux transformer le code (merci LedZeppII) du poste en procédure comme ceci :

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
' ---------------------------------------------------------
Public Sub EnvoyerGMail(prmAdresseDestinataire as string)
' 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 = prmAdresseDestinataire
' 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 sub
Il suffit de l'appeler comme suit :

Code :
Sélectionner tout - Visualiser dans une fenêtre à part
1
2
call EnvoyerGMail("""Nom Destinataire 1"" <a href="mailto:AdresseDestinataire1@domaine.com">AdresseDestinataire1@domaine.com</a>")
call EnvoyerGMail("""Nom Destinataire 2"" <a href="mailto:AdresseDestinataire2@domaine.com">AdresseDestinataire2@domaine.com</a>")
A+
__________________
Vous voulez une réponse rapide et efficace à vos questions téchniques ? Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
marot_r est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 06/07/2011, 00h15   #3
Invité régulier
 
Homme
Inscription : juin 2011
Messages : 34
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : Belgique

Informations forums :
Inscription : juin 2011
Messages : 34
Points : 5
Points : 5
GRAND MERCI

Quel service.....
gsacre est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 23h28.

Nous contacter - Developpez.com - Archives - Haut de page

 
 
Developpez.com

Nous contacter

Participez

Informations légales

 
Services

Forum Access

Blogs

Hébergement

 
Partenaires

Hébergement Web