Email par macro Word

Signaler
Messages postés
5
Date d'inscription
mardi 25 janvier 2005
Statut
Membre
Dernière intervention
4 février 2005
-
Messages postés
868
Date d'inscription
dimanche 26 décembre 2004
Statut
Membre
Dernière intervention
26 février 2008
-
Je travaille sur l'éditeur de macro Word. En fait, je travaille sur un é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éé et enregistré,
Je ne suis pas capable de l'envoyer par Mail. J'aimerais utiliser Word pour cela ou
outlook.

Merci de votre aide.

10 réponses

Messages postés
868
Date d'inscription
dimanche 26 décembre 2004
Statut
Membre
Dernière intervention
26 février 2008
1
Salut ! T'as quoi comme ordi ? Est-ce que t'as la librairie cdosys.dll ?
Si tu l'as je pourrai t'aider.
Réponds-moi...
@++
Messages postés
5
Date d'inscription
mardi 25 janvier 2005
Statut
Membre
Dernière intervention
4 février 2005

J'ai bien le fichier cdosys.dll, il est situé à trois emplacements diffé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.
Messages postés
868
Date d'inscription
dimanche 26 décembre 2004
Statut
Membre
Dernière intervention
26 février 2008
1
Pour envoyer un email, essaie le code suivant (je te garantis pas que ç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 ça va marcher mais tu peux toujours essayer...
Si ça marche pas, dit le moi.
Tchao ! Et bonne prog...
Messages postés
5
Date d'inscription
mardi 25 janvier 2005
Statut
Membre
Dernière intervention
4 février 2005

Ca me donne le message d'erreur suivant:

Erreur d'exécution '-2147220960(80040220)':

The ``SendUsing`` configuration value is invalid.

Et ensuite on surligne en jaune mail.Send.


Merci de ton aide, à +.
Messages postés
868
Date d'inscription
dimanche 26 décembre 2004
Statut
Membre
Dernière intervention
26 février 2008
1
???
Chez moi, ça marche...Ca doit être dû à la configuration de Outlook...
D'après ce que tu me dis, ça doit être une erreur due à la configuration
Je n'ai pas trouvé de solutions... Essaie de configurer Outlook.........
Je vais essayer d'en trouvé......
@++
Messages postés
868
Date d'inscription
dimanche 26 décembre 2004
Statut
Membre
Dernière intervention
26 février 2008
1
Essaie le premier code que je t'ai envoyé dans un fichier .vbs !
Ca va PEUT ETRE marcher (mais c'est pas sûr).
@++
Messages postés
868
Date d'inscription
dimanche 26 décembre 2004
Statut
Membre
Dernière intervention
26 février 2008
1
Pour l'envoi de mail, regarde ma source en VBS.
Espérons que cela puisse t'aider en vbs (c'est avec le "CDO.Message")....
@++
Messages postés
868
Date d'inscription
dimanche 26 décembre 2004
Statut
Membre
Dernière intervention
26 février 2008
1
Peut être une solution :
Dans Outlook, ton compte principal (ex: hotmail) ne doit pas être mis par
défaut.
S'il n'est pas par défaut ça devrait marcher (normalement...) !
@++
...réponds moi si ça marche !
Messages postés
5
Date d'inscription
mardi 25 janvier 2005
Statut
Membre
Dernière intervention
4 février 2005

J'ai configuré Outlook et ça ne fonctionne toujours pas. Je me suis organisé autrement; en codant ceci dans l'éditeur de texte Word:

Documents.Open FileName:=("c:\MonDocument.doc")
ActiveDocument.SendMail

Et en écrivant mon sujet au début du document en question, le fichier s'attachera et on y verra le titre dans la fenêtre. Il ne me reste plus qu'à écrire l'adresse Email. Sur l'appareil de test Audio Precision auquel je travail, le code se transforme en ceci dans son éditeur de texte:

Dim Word As Object
Set Word = CreateObject("WORD.BASIC")

Word.FileOpen Name:="c:\MonDocument.doc"
Word.FileSendMail

Trop compliqué le VB, y'a de quoi devenir Barjo

Merci beaucoup de ton aide. Je vais essayer ton code sur un autre ordinateur, peut-être qu'il marchera.

Bye
Messages postés
868
Date d'inscription
dimanche 26 décembre 2004
Statut
Membre
Dernière intervention
26 février 2008
1
Wey ! Je connaissais pas ça !
Comme quoi, on apprend tous les jours !!!
En fait, t'attache un fichier Word à 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 !