Outlook/Access/fichier joint

Signaler
Messages postés
1
Date d'inscription
samedi 23 septembre 2006
Statut
Membre
Dernière intervention
23 septembre 2006
-
Messages postés
10
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
23 avril 2010
-
Bonjour à tous,

Je voudrais pouvoir envoyer un fichier attaché sous outlook depuis Access. J'ai trouvé le code suivant en chrchant un peu:






Sub UseOutlook()
  Dim MonOutlook As Object
  Dim MonMessage As Object
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.createitem(0)












   Message.Attachments.Add "C:\Mes Documents\bidule.xls"








  MonMessage.send
  Set MonOutlook = Nothing
End Sub



Je pense que je ne suis pas loin mais ça ne marche pas. Si qlq un a une idée...

1 réponse

Messages postés
10
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
23 avril 2010

bonjour,

c'est un peu vieux comme message mais pour ceux qui cherche encore ce n'est pas
message.attachments.add "c:\mesdoc\monfichier.doc"
mais
monmessage.attachments.add "c:\mesdoc\monfichier.doc"
il fallait pas oublier le mon dans monmessage

mais ligne de commande attachments.add "..." m'a été très utiles

ciao