OVH Cloud OVH Cloud

VBA - envoi de mail

5 réponses
Avatar
Antoine
Bonjour,

Un programme vb me permet d'envoyer par mail le résultat d'un publipostage.
Voici le code utilisé:

With OLE1.object.Application
.ActiveDocument.MailMerge.OpenDataSource SourceDonnee
.ActiveDocument.Save
With .ActiveDocument.MailMerge
.Destination = wdSendToEmail
.MailAddressFieldName = ZoneEmail
.MailSubject = "Informations"
.MailAsAttachment = False
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute True
End With
.Quit wdDoNotSaveChanges
End With

Ce code fonctionne correctement sur une machine possédant word 97.
Par contre, rien ne se passe si l'utilisateur posséde word 2003. Le mail
n'arrive pas à destination.

A priori, aucune erreur n'est retournée.

Merci pour votre aide,
Antoine

5 réponses

Avatar
Anacoluthe
Bonjour !

'Antoine' nous a écrit ...
Un programme vb me permet d'envoyer par mail le résultat d'un publipostage.
Voici le code utilisé:
...
Ce code fonctionne correctement sur une machine possédant word 97.
Par contre, rien ne se passe si l'utilisateur posséde word 2003. Le mail
n'arrive pas à destination.


Si le code est ok dans une autre configuration,
c'est que le problème vient du logiciel de messagerie (OL2003?)
Voyez déjà si Word 2003 peut e-poster normalement sur ce poste.

Anacoluthe
« Mieux vaut aller à la poste hériter qu'à la postérité. »
- Alexandre BREFFORT

Avatar
Antoine
L'envoi d'un mail directement à partir de Word 2003 fonctionne.
Concernant le logiciel de messagerie, j'ai fait des essais avec Outlook
Express et Lotus, et rien n'y fait.
-

"Anacoluthe" a écrit dans le message de news:
OnZtDH$
Bonjour !

'Antoine' nous a écrit ...
Un programme vb me permet d'envoyer par mail le résultat d'un
publipostage.
Voici le code utilisé:
... Ce code fonctionne correctement sur une machine possédant word 97.
Par contre, rien ne se passe si l'utilisateur posséde word 2003. Le mail
n'arrive pas à destination.


Si le code est ok dans une autre configuration,
c'est que le problème vient du logiciel de messagerie (OL2003?)
Voyez déjà si Word 2003 peut e-poster normalement sur ce poste.

Anacoluthe
« Mieux vaut aller à la poste hériter qu'à la postérité. »
- Alexandre BREFFORT



Avatar
Anacoluthe
Bonjour !

'Antoine' nous a écrit ...
L'envoi d'un mail directement à partir de Word 2003 fonctionne.
Concernant le logiciel de messagerie, j'ai fait des essais avec Outlook
Express et Lotus, et rien n'y fait.


Est-ce que le document est envoyé en pièce jointe (PJ) en faisant
.MailAsAttachment = True au lieu de False ?
Le publipostage automatisé ne marche bien qu'en texte brut ou en PJ pour
un tas de raisons de sécurité ajoutées dans les dernières versions...

Anacoluthe
« Mieux vaut aller à la poste hériter qu'à la postérité. »
- Alexandre BREFFORT

Avatar
Antoine
Merci,

Je n'envoie pas le document en tant que piece jointe.
J'ai tout de même fait un essai en mettant .MailAsAttachment à true, et
toujours pareil.

"Anacoluthe" a écrit dans le message de news:

Bonjour !

'Antoine' nous a écrit ...
L'envoi d'un mail directement à partir de Word 2003 fonctionne.
Concernant le logiciel de messagerie, j'ai fait des essais avec Outlook
Express et Lotus, et rien n'y fait.


Est-ce que le document est envoyé en pièce jointe (PJ) en faisant
.MailAsAttachment = True au lieu de False ?
Le publipostage automatisé ne marche bien qu'en texte brut ou en PJ pour
un tas de raisons de sécurité ajoutées dans les dernières versions...

Anacoluthe
« Mieux vaut aller à la poste hériter qu'à la postérité. »
- Alexandre BREFFORT



Avatar
Anacoluthe
Bonjour !

'Antoine' nous a écrit ...
J'ai tout de même fait un essai en mettant .MailAsAttachment à true, et
toujours pareil.


Désolé. J'ai fait l'essai de votre code exact dans WD2003 et sous
réserve de bien renseigner la variable ZoneEmail avec le nom
du champ qui contient l'adresse email dans la source
tout marche très bien, que ce soit en texte ou en pièce jointe !

Evidemment mon OL2003 me crache une foultitude de messages
d'alerte 'qqun essaye d'utiliser votre messagerie patati patata'
mais ça c'est connu, il faut utiliser un truc comme ClickYes.

Anacoluthe
« Mieux vaut aller à la poste hériter qu'à la postérité. »
- Alexandre BREFFORT