OVH Cloud OVH Cloud

Envoi de message par VBA

1 réponse
Avatar
Alain RIBAULT
Bonjour,
Je cherche à envoyer des fichiers par mail depuis ACCESS 2000.
Pour cela j'ai fait un peu de code VBA :
DoCmd.SendObject acQuery, "Req : Anos en cours en retard - état auto",
"MicrosoftExcel(*.xls)", Mail, "", "", "Etats de la base Tracker", Message,
False, ""
Dans Mail, j'ai l'adresse mail et dans Message le texte du message.
J'ai 2 messages à envoyer. Le premier est envoyé correctement et le 2ème
n'est pas envoyé sans aucune erreur générée.
De plus quand je ferme ACCESS il me signale une erreur.
Y a-t-il une précaution à prendre avant l'envoi du 2ème message ?
Je suis en Outlook Express 5.5
Merci de vos réponses.

1 réponse

Avatar
Alain RIBAULT
Je peux apporter une précision supplémentaire : si à la place de la variable
Message (type string ou variant) je mets une chaîne de caractères en dur
entre " ", cela fonctionne : je peux envoyer 2 messages de suite.
Si je mets la variable Message initialisée avec une chaîne de caractères
quelconque j'ai au 2ème envoi l'erreur suivante : "Les formats qui vous
permettent d'exporter des données au format Microsoft Excel, RTF (rich-text
format), fichier texte MS-DOS ou HTML sont manquants dans la base de
registres Windows."
Merci de votre aide.

"Alain RIBAULT" a écrit dans le message news:

Bonjour,
Je cherche à envoyer des fichiers par mail depuis ACCESS 2000.
Pour cela j'ai fait un peu de code VBA :
DoCmd.SendObject acQuery, "Req : Anos en cours en retard - état auto",
"MicrosoftExcel(*.xls)", Mail, "", "", "Etats de la base Tracker",
Message,

False, ""
Dans Mail, j'ai l'adresse mail et dans Message le texte du message.
J'ai 2 messages à envoyer. Le premier est envoyé correctement et le 2ème
n'est pas envoyé sans aucune erreur générée.
De plus quand je ferme ACCESS il me signale une erreur.
Y a-t-il une précaution à prendre avant l'envoi du 2ème message ?
Je suis en Outlook Express 5.5
Merci de vos réponses.