Je d=E9sirerai tout simplement envoyer un fichier texte en=20
pi=E8ce jointe =E0 la fin d'un petit traitement. Mais la seule=20
commande que j'ai trouv=E9 (send object) ne me permet pas un=20
tel envoi.=20
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Damien Mermoz
Salut,
si tes utilisateurs utilisent Outlook tu peux passer par automation
exemple :
Dim objOutlook As Outlook.Application Dim objOutlookMsg As Outlook.MailItem Dim objOutlookDest As Outlook.Recipient Dim objOutlookPiece As Outlook.Attachment dim strchemin as string
strchemin = "C:monrepmontxt.txt" Set objOutlook = CreateObject("Outlook.application") Set objOutlookMsg = objOutlook.CreateItem(olMailItem) With objOutlookMsg Set objOutlookDest = .Recipients.Add() Set objOutlookPiece = .Attachments.Add(strChemin) objOutlookDest.Type = olTo .Subject = "mon sujet" .Body = "mon msg" .send end with
Set objOutlook = Nothing
Ca peut peut être t'aider, mais y'a quand même le pb des msg d'avertissement d'outlook.
A + Damien.
"SEB" a écrit dans le message news: 06ed01c396f0$9a823d90$ Bonjour à tous !
Je désirerai tout simplement envoyer un fichier texte en pièce jointe à la fin d'un petit traitement. Mais la seule commande que j'ai trouvé (send object) ne me permet pas un tel envoi.
Quelqu'un aurait une brillante idée ?
D'avance merci
Salut,
si tes utilisateurs utilisent Outlook tu peux passer par automation
exemple :
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookDest As Outlook.Recipient
Dim objOutlookPiece As Outlook.Attachment
dim strchemin as string
strchemin = "C:monrepmontxt.txt"
Set objOutlook = CreateObject("Outlook.application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
Set objOutlookDest = .Recipients.Add(monadresse@machin.fr)
Set objOutlookPiece = .Attachments.Add(strChemin)
objOutlookDest.Type = olTo
.Subject = "mon sujet"
.Body = "mon msg"
.send
end with
Set objOutlook = Nothing
Ca peut peut être t'aider, mais y'a quand même le pb des msg d'avertissement
d'outlook.
A +
Damien.
"SEB" <zeseb@hotmail.com> a écrit dans le message news:
06ed01c396f0$9a823d90$a501280a@phx.gbl...
Bonjour à tous !
Je désirerai tout simplement envoyer un fichier texte en
pièce jointe à la fin d'un petit traitement. Mais la seule
commande que j'ai trouvé (send object) ne me permet pas un
tel envoi.
si tes utilisateurs utilisent Outlook tu peux passer par automation
exemple :
Dim objOutlook As Outlook.Application Dim objOutlookMsg As Outlook.MailItem Dim objOutlookDest As Outlook.Recipient Dim objOutlookPiece As Outlook.Attachment dim strchemin as string
strchemin = "C:monrepmontxt.txt" Set objOutlook = CreateObject("Outlook.application") Set objOutlookMsg = objOutlook.CreateItem(olMailItem) With objOutlookMsg Set objOutlookDest = .Recipients.Add() Set objOutlookPiece = .Attachments.Add(strChemin) objOutlookDest.Type = olTo .Subject = "mon sujet" .Body = "mon msg" .send end with
Set objOutlook = Nothing
Ca peut peut être t'aider, mais y'a quand même le pb des msg d'avertissement d'outlook.
A + Damien.
"SEB" a écrit dans le message news: 06ed01c396f0$9a823d90$ Bonjour à tous !
Je désirerai tout simplement envoyer un fichier texte en pièce jointe à la fin d'un petit traitement. Mais la seule commande que j'ai trouvé (send object) ne me permet pas un tel envoi.
Quelqu'un aurait une brillante idée ?
D'avance merci
C presque ça, sauf que c pour une personne utilisant outlook Expresse ;-) Vais tenter de chercher dans cette voie. L'idéal en fait serait d'avoir une fonction commune,quelque soit la messagerie employée. Mais il faut probablement passer par l'utilisation des DLL Windows pour ce faire. Merci de ton aide
-----Message d'origine----- Salut,
si tes utilisateurs utilisent Outlook tu peux passer par automation
exemple :
Dim objOutlook As Outlook.Application Dim objOutlookMsg As Outlook.MailItem Dim objOutlookDest As Outlook.Recipient Dim objOutlookPiece As Outlook.Attachment dim strchemin as string
strchemin = "C:monrepmontxt.txt" Set objOutlook = CreateObject("Outlook.application") Set objOutlookMsg = objOutlook.CreateItem(olMailItem) With objOutlookMsg Set objOutlookDest = .Recipients.Add ()
Set objOutlookPiece = .Attachments.Add(strChemin) objOutlookDest.Type = olTo .Subject = "mon sujet" .Body = "mon msg" ..send end with
Set objOutlook = Nothing
Ca peut peut être t'aider, mais y'a quand même le pb des msg d'avertissement
d'outlook.
A + Damien.
"SEB" a écrit dans le message news: 06ed01c396f0$9a823d90$ Bonjour à tous !
Je désirerai tout simplement envoyer un fichier texte en pièce jointe à la fin d'un petit traitement. Mais la seule commande que j'ai trouvé (send object) ne me permet pas un tel envoi.
Quelqu'un aurait une brillante idée ?
D'avance merci
.
C presque ça, sauf que c pour une personne utilisant
outlook Expresse ;-)
Vais tenter de chercher dans cette voie.
L'idéal en fait serait d'avoir une fonction
commune,quelque soit la messagerie employée. Mais il faut
probablement passer par l'utilisation des DLL Windows pour
ce faire.
Merci de ton aide
-----Message d'origine-----
Salut,
si tes utilisateurs utilisent Outlook tu peux passer par
automation
exemple :
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookDest As Outlook.Recipient
Dim objOutlookPiece As Outlook.Attachment
dim strchemin as string
strchemin = "C:monrepmontxt.txt"
Set objOutlook = CreateObject("Outlook.application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
Set objOutlookDest = .Recipients.Add
(monadresse@machin.fr)
Set objOutlookPiece = .Attachments.Add(strChemin)
objOutlookDest.Type = olTo
.Subject = "mon sujet"
.Body = "mon msg"
..send
end with
Set objOutlook = Nothing
Ca peut peut être t'aider, mais y'a quand même le pb des
msg d'avertissement
d'outlook.
A +
Damien.
"SEB" <zeseb@hotmail.com> a écrit dans le message news:
06ed01c396f0$9a823d90$a501280a@phx.gbl...
Bonjour à tous !
Je désirerai tout simplement envoyer un fichier texte en
pièce jointe à la fin d'un petit traitement. Mais la seule
commande que j'ai trouvé (send object) ne me permet pas un
tel envoi.
C presque ça, sauf que c pour une personne utilisant outlook Expresse ;-) Vais tenter de chercher dans cette voie. L'idéal en fait serait d'avoir une fonction commune,quelque soit la messagerie employée. Mais il faut probablement passer par l'utilisation des DLL Windows pour ce faire. Merci de ton aide
-----Message d'origine----- Salut,
si tes utilisateurs utilisent Outlook tu peux passer par automation
exemple :
Dim objOutlook As Outlook.Application Dim objOutlookMsg As Outlook.MailItem Dim objOutlookDest As Outlook.Recipient Dim objOutlookPiece As Outlook.Attachment dim strchemin as string
strchemin = "C:monrepmontxt.txt" Set objOutlook = CreateObject("Outlook.application") Set objOutlookMsg = objOutlook.CreateItem(olMailItem) With objOutlookMsg Set objOutlookDest = .Recipients.Add ()
Set objOutlookPiece = .Attachments.Add(strChemin) objOutlookDest.Type = olTo .Subject = "mon sujet" .Body = "mon msg" ..send end with
Set objOutlook = Nothing
Ca peut peut être t'aider, mais y'a quand même le pb des msg d'avertissement
d'outlook.
A + Damien.
"SEB" a écrit dans le message news: 06ed01c396f0$9a823d90$ Bonjour à tous !
Je désirerai tout simplement envoyer un fichier texte en pièce jointe à la fin d'un petit traitement. Mais la seule commande que j'ai trouvé (send object) ne me permet pas un tel envoi.
