envoi fichier txt par email sous excel

[vinc26]

Bonjour
je voudrait savoir si c'est possible sous excel d'envoyer un fichier txt par email
exemple
j'ai cree un fichier txt a partir d'une macro et je voudrait envoyer directement ce fichier cree sous excel par email (outlook) mais de facon transparente (sans aller sous outlook nouveau message etc...)
si solution ca serai cool
merci d'avance

 

[Jeff]

Hello Vinc

Ca devrait faire l'affaire:

Dim MonOutlook As Object, myItem As Object
Set MonOutlook = CreateObject("outlook.application")
Set MonMessage = MonOutlook.CreateItem(olMailItem)
MonMessage.to = "trucmuche@bidule.com"
MonMessage.cc = "trucmuche2@bidule.com"
MonMessage.Subject = "Fichier texte"
MonMessage.Body = "Voir ci-joint"
Set myAttachments = MonMessage.Attachments
myAttachments.Add "C:\texte.txt"
MonMessage.Send
Set MonOutlook = Nothing

Jeff

 

[vinc26]

merci ca fction impec
merci encor

par contre sait tu comment enlever le message de outlook disant q'un mail et en cour d'envoi et peut etre un virus??

 

[Jeff]

Re-bonjour Vinc, et le forum,

C'est un message de sécurité et je crois qu'on ne peut pas l'outre-passer... Il existe un petit prog que tu trouveras ici : http://www.contextmagic.com/express-clickyes/
qui pourrait peut-être t'aider ;-)

Amicalement,

Jeff