Comment envoyer un message depuis ACCESS vers OUTLOOK

Bonjour aussi,

Pierre JACQUET wrote:

Comment envoyer un message depuis ACCESS via OUTLOOK vers un
destinataire donné ?

3 façons :
http://www.3stone.be/access/articles.php?lng=fr&pg
http://www.3stone.be/access/articles.php?lng=fr&pgˆ
http://www.3stone.be/access/articles.php?lng=fr&pg‰

Arnaud
--
Charte du forum : http://www.mpfa.info/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

**** Ajouter la librairie Outlook ****

Dim objOutlook As Outlook.Application 'Objet
Outlook
Dim objMsg As Outlook.MailItem 'Message
Outlook
Dim objAttach As Outlook.Attachments 'Le fichier
a attacher

'****************************
'-- Ouverture de Outlook --
'-- Creation d'un message --
'-- Attache le fichier PDF --
'****************************
Set objOutlook = New Outlook.Application
Set objMsg = objOutlook.CreateItem(olMailItem)
Set objAttach = objMsg.Attachments
objAttach.Add "c:winnttemp" & as_nom_etat

objMsg.To = "suzanne"

'********************************
'-- Affiche le message Outlook --
'********************************
objMsg.Display