[office 2000] [macro][word][mail]

Bonsoir,
Voici une macro de Stephane Royer http://xlbysteph.free.fr/
Sub SendEMailwithAttachments()
'
' Cette routine envoi des mails avec un attach
'
Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = "xxxxxxxx@xxx"
myItem.Subject = "Test Mail"
myItem.Body = "Bonjour à tous." & Chr(13) & Chr(13) & "Au revoir"
Set myAttachments = myItem.Attachments
myAttachments.Add ActiveDocument.FullName
MsgBox "Now sending to " & myItem.To
myItem.Send
Set ol = Nothing
End Sub

Tu as aussi une réponse à ce sujet sur la faq de Word
http://faqword.free.fr
Particulièrement ici http://faqword.free.fr/articles.php?lng=fr&pga
Dont voici la copie
Je souhaite ajouter un bouton, lié à une macro qui envoie le document
en cours dans une boîte aux lettres. J'ai bien repérer la méthode SendMail,
mais, comment lui passer les parametres "Destinataire" et "Objet" ?
Consulter les fiches suivantes
http://support.microsoft.com/?scid=kb;fr;238114
http://support.microsoft.com/?scid=kb;fr;209248

Philippe


"highvalue" <fauref@wanadoo.fr> a écrit dans le message de
news:elCXcmO7EHA.2192@TK2MSFTNGP14.phx.gbl...

bonjour,

c'est peut-être rudimentaire, mais voilà :

je souhaite envoyer le document courant par mail à un destinataire connu
(supposons le unique et prédéfini).

la ligne ActiveDocument.SendMail

ne me convient pas car je souhaite que les champs "objet" et "à" soient
renseignés par ma macro et le mail effectivement envoyé sans autre
opération.

merci d'avance,

ff

merci,

ça a l'air de fonctionner.

quelques petits points de sécurité à règler (une application essai d'envoyer
patati-patata..)
mais je devrais m'en sortir.

merci encore,

ff

"Corona" <Philippe Tulliez> a écrit dans le message de
news:ebStUKP7EHA.1396@tk2msftngp13.phx.gbl...

Bonsoir,
Voici une macro de Stephane Royer http://xlbysteph.free.fr/
Sub SendEMailwithAttachments()
'
' Cette routine envoi des mails avec un attach
'
Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = "xxxxxxxx@xxx"
myItem.Subject = "Test Mail"
myItem.Body = "Bonjour à tous." & Chr(13) & Chr(13) & "Au revoir"
Set myAttachments = myItem.Attachments
myAttachments.Add ActiveDocument.FullName
MsgBox "Now sending to " & myItem.To
myItem.Send
Set ol = Nothing
End Sub

Tu as aussi une réponse à ce sujet sur la faq de Word
http://faqword.free.fr
Particulièrement ici http://faqword.free.fr/articles.php?lng=fr&pga
Dont voici la copie
Je souhaite ajouter un bouton, lié à une macro qui envoie le
document

en cours dans une boîte aux lettres. J'ai bien repérer la méthode
SendMail,

mais, comment lui passer les parametres "Destinataire" et "Objet" ?
Consulter les fiches suivantes
http://support.microsoft.com/?scid=kb;fr;238114
http://support.microsoft.com/?scid=kb;fr;209248

Philippe


"highvalue" <fauref@wanadoo.fr> a écrit dans le message de
news:elCXcmO7EHA.2192@TK2MSFTNGP14.phx.gbl...

bonjour,

c'est peut-être rudimentaire, mais voilà :

je souhaite envoyer le document courant par mail à un destinataire connu
(supposons le unique et prédéfini).

la ligne ActiveDocument.SendMail

ne me convient pas car je souhaite que les champs "objet" et "à" soient
renseignés par ma macro et le mail effectivement envoyé sans autre
opération.

merci d'avance,

ff