1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

Outlook/Access/fichier joint

scocheme Messages postés 1 Date d'inscription samedi 23 septembre 2006 Statut Membre Dernière intervention 23 septembre 2006 - 23 sept. 2006 à 17:20
eliefr78 Messages postés 10 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 23 avril 2010 - 15 oct. 2008 à 09:53
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

Réponse 1 / 1
eliefr78 Messages postés 10 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 23 avril 2010
15 oct. 2008 à 09:53
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
0
Rejoignez-nous