OVH Cloud OVH Cloud

Envoi d'un courriel à des contacts à partir d'une base de donnée s

4 réponses
Avatar
mel
Bonjour !

Je viens de terminer d'entrer des contacts dans une basse de données et
j'aimerais, à partir de cette base de données, envoyer un courriel à ces
contacts. Est-ce possible de transférer les données de Access dans les
contacts de Outlook ?

Merci et Bonne Journée !

Melanie

4 réponses

Avatar
3stone
Salut,

"mel"
| Je viens de terminer d'entrer des contacts dans une basse de données et
| j'aimerais, à partir de cette base de données, envoyer un courriel à ces
| contacts. Est-ce possible de transférer les données de Access dans les
| contacts de Outlook ?


Inutile de les transférer...

Tu peux les envoyer directement :
http://www.3stone.be/access/articles.php?lng=fr&pg‰


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
Jacques
Bonjour,

Voici une petite fonction d'envoi de mail (de base).
Tu lui passes en paramètre l'objet et le corps du courriel.


Public Function EnvoiEmail( Objet As String, Corps As String)

Dim MyOutlook As Outlook.Application
Dim MonMail As Outlook.MailItem

Dim db As Database
Dim rs As Recordset
Dim sqlEtat As String


sqlEtat = "Select * FROM Ma_Table"
Set db = CurrentDb
Set rs = db.OpenRecordset(sqlEtat)
rs.MoveFirst

' Ouverture de Outlook
Set MyOutlook = New Outlook.Application


Do While Not rs.EOF

' Création du courriel
Set MonMail = MyOutlook.CreateItem(olMailItem)


' Adresse d'envoi
MonMail.To = rs.Fields("COURRIEL") ' champ contenant l'adresse de
courriel

'Copie Conforme
'MonMail.CC = "" '

'Objet du message
MonMail.Subject = Objet

'Corps du message
MonMail.Body = Corps


MonMail.Send


rs.MoveNext
Loop

'destruction
Set MyMail = Nothing
Set MyOutlook = Nothing

End Function




"mel" a écrit dans le message de
news:
Bonjour !

Je viens de terminer d'entrer des contacts dans une basse de données et
j'aimerais, à partir de cette base de données, envoyer un courriel à ces
contacts. Est-ce possible de transférer les données de Access dans les
contacts de Outlook ?

Merci et Bonne Journée !

Melanie


Avatar
mel
Merci Jacques mais je ne suis pas très familière avec ces termes...
Auriez-vous une explication plus banalisée ?... Merci encore une fois !

Melanie
--
merci !



Bonjour,

Voici une petite fonction d'envoi de mail (de base).
Tu lui passes en paramètre l'objet et le corps du courriel.


Public Function EnvoiEmail( Objet As String, Corps As String)

Dim MyOutlook As Outlook.Application
Dim MonMail As Outlook.MailItem

Dim db As Database
Dim rs As Recordset
Dim sqlEtat As String


sqlEtat = "Select * FROM Ma_Table"
Set db = CurrentDb
Set rs = db.OpenRecordset(sqlEtat)
rs.MoveFirst

' Ouverture de Outlook
Set MyOutlook = New Outlook.Application


Do While Not rs.EOF

' Création du courriel
Set MonMail = MyOutlook.CreateItem(olMailItem)


' Adresse d'envoi
MonMail.To = rs.Fields("COURRIEL") ' champ contenant l'adresse de
courriel

'Copie Conforme
'MonMail.CC = "" '

'Objet du message
MonMail.Subject = Objet

'Corps du message
MonMail.Body = Corps


MonMail.Send


rs.MoveNext
Loop

'destruction
Set MyMail = Nothing
Set MyOutlook = Nothing

End Function




"mel" a écrit dans le message de
news:
Bonjour !

Je viens de terminer d'entrer des contacts dans une basse de données et
j'aimerais, à partir de cette base de données, envoyer un courriel à ces
contacts. Est-ce possible de transférer les données de Access dans les
contacts de Outlook ?

Merci et Bonne Journée !

Melanie







Avatar
mel
Je vous remercie ... J'ai enfin trouvé comment faire !

Bonne journée !

Mel
--
merci !



Bonjour !

Je viens de terminer d'entrer des contacts dans une basse de données et
j'aimerais, à partir de cette base de données, envoyer un courriel à ces
contacts. Est-ce possible de transférer les données de Access dans les
contacts de Outlook ?

Merci et Bonne Journée !

Melanie