Email par macro Word

Question

Je travaille sur l'&#233;diteur de macro Word. En fait, je travaille sur un &#233;diteur VBA
 pour configurer un module de test audio et je me sert des macro Word pour former le 
rapport final et l'envoyer par Email. Une fois que mon rapport est cr&#233;&#233; et enregistr&#233;,
Je ne suis pas capable de l'envoyer par Mail. J'aimerais utiliser Word pour cela ou
outlook.

Merci de votre aide.

cs_algori · Answer

Salut ! T'as quoi comme ordi ? Est-ce que t'as la librairie cdosys.dll ?
Si tu l'as je pourrai t'aider.
R&#233;ponds-moi...
@++

flight13 · Answer

J'ai bien le fichier cdosys.dll, il est situ&#233; &#224; trois emplacements diff&#233;rents  C:\WINNT\$NtServicePackUninstall$, C:\WINNT\ServicePackFile\i386 et C:\WINNT\systeme32. Mon ordinateur de travail est un Pentium 2, 400MHz avec 256Mo de RAM.

cs_algori · Answer

Pour envoyer un email, essaie le code suivant (je te garantis pas que &#231;a va marcher) :


Set mail = CreateObject("CDO.Message")


mail.From = "tonadresse@tonfournisseur.com"
mail.To = "adressedestinataire@sonfournisseur.com"

mail.Subject = "Un petit message"
mail.Textbody = "Voici le corps du message"
mail.AddAttachment "C:\monfichier.doc"
mail.Send

Je ne sais pas si &#231;a va marcher mais tu peux toujours essayer...
Si &#231;a marche pas, dit le moi.
Tchao ! Et bonne prog...

flight13 · Answer

Ca me donne le message d'erreur suivant:

Erreur d'ex&#233;cution '-2147220960(80040220)':

The ``SendUsing`` configuration value is invalid.

Et ensuite on surligne en jaune mail.Send.


Merci de ton aide, &#224; +.

cs_algori · Answer

???
Chez moi, &#231;a marche...Ca doit &#234;tre d&#251; &#224; la configuration de Outlook...
D'apr&#232;s ce que tu me dis, &#231;a doit &#234;tre une erreur due &#224; la configuration
Je n'ai pas trouv&#233; de solutions... Essaie de configurer Outlook.........
Je vais essayer d'en trouv&#233;......
@++

cs_algori · Answer

Essaie le premier code que je t'ai envoy&#233; dans un fichier .vbs !
Ca va PEUT ETRE marcher (mais c'est pas s&#251;r).
@++

cs_algori · Answer

Pour l'envoi de mail, regarde ma source en VBS.
Esp&#233;rons que cela puisse t'aider en vbs (c'est avec le "CDO.Message")....
@++

cs_algori · Answer

Peut &#234;tre une solution :
Dans Outlook, ton compte principal (ex: hotmail) ne doit pas &#234;tre mis par
d&#233;faut.
S'il n'est pas par d&#233;faut &#231;a devrait marcher (normalement...) !
@++  
 ...r&#233;ponds moi si &#231;a marche !

flight13 · Answer

J'ai configur&#233; Outlook et &#231;a ne fonctionne toujours pas. Je me suis organis&#233; autrement; en codant ceci dans l'&#233;diteur de texte Word:

   Documents.Open FileName:=("c:\MonDocument.doc")
   ActiveDocument.SendMail

Et en &#233;crivant mon sujet au d&#233;but du document en question, le fichier s'attachera et on y verra le titre dans la fen&#234;tre. Il ne me reste plus qu'&#224; &#233;crire l'adresse Email. Sur l'appareil de test Audio Precision auquel je travail, le code se transforme en ceci dans son &#233;diteur de texte:

    Dim Word As Object         
    Set Word =  CreateObject("WORD.BASIC") 

    Word.FileOpen Name:="c:\MonDocument.doc" 
    Word.FileSendMail

Trop compliqu&#233; le VB, y'a de quoi devenir Barjo

Merci beaucoup de ton aide. Je vais essayer ton code sur un autre ordinateur, peut-&#234;tre qu'il marchera.

Bye

cs_algori · Answer

Wey ! Je connaissais pas &#231;a ! 
Comme quoi, on apprend tous les jours !!!
En fait, t'attache un fichier Word &#224; ton mail. Faudra juste taper ton destinataire... 
Mon script permet de tout automatiser. TROP DOMMAGE qu'il marche pas sur ton ordi.
Faut que je trouve un truc...(si y'en a un).
Tchao et bonne prog !

Email par macro Word

10 réponses

Discussions similaires