Envoyer un email automatiquement
Bonjour,
Je cherche à envoyer un email automatiquement
J'ai parcouru le forum à ce sujet (ils sont nombreux) mais sans succès...
Voici ma macro actuelle :
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItemFromTemplate("P:\....oft")
With OutMail
.Attachments.Add ("P:\....pdf")
.Display
End With
Mon modèle email s'ouvre bien avec la pièce jointe voulue mais j'aimerais qu'il soit envoyé automatiquement
Ce qui me semblais le plus logique c'est de renseigner
.Send
à la place de
.Display
mais ça ne fonctionne pas...
J'ai l'impression que c'est simple mais je tourne en rond et je n'y arrive pas
Merci de votre aide
Cordialement
papa15
Bonjour,
Euh.. .send tu as raison c'est sa !
Par contre... Je me demande en regardant ton code, à qui tu l'envoie le mail ? Quel est l'objet du mail ? Pas de corps de texte ? Une simple pièce jointe et le destinataire se débrouille ?
Regarde sur le forum, je pense que la réponse à ta question est la plus répandue, tu n'auras aucun mal à trouver ton bonheur.
Cdlt,
Bonjour VH_AE
j'ai bien essayé
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItemFromTemplate("P:\....oft")
With OutMail
.Attachments.Add ("P:\....pdf")
.Send
End With
Mais ça ne fonctionne pas
Voici l'erreur visual basic :
Erreur d'éxécution '287'
Erreur définie par l'application ou par l'objet
Concernant l'email en question, avec la fonction OutApp.CreateItemFromTemplate("P:\....oft") c'est un modèle d'email déjà enregistré sur notre serveur qui est ouvert, donc les destinataires, l'objet et le corps du message sont déjà enregistrés.
Si nous voulons changer un destinataire, le texte ou l'objet : on modifie le modèle
Il y a peut-être une subtilité vu que je fais appel à un modèle d'email
Sur le forum je ne trouve rien d'autre
Merci
Bonjour,
Autant pour moi alors !
Je crois que c'est à cause d'une sécurité sur les modèles voir ici.
ça à l'air coton tous ça.
Bonne chance !
Merci
en effet ça a l'air coton !
Je vais regarder et je te reviendrais si je trouve qqchose qui puisse m'aider et me débloquer ma situation