VBA et envoie de mail à heure programmée
Résolu
Leteint
-
Leteint -
Leteint -
Bonjour,
J'ai la petite macro dans ma cession Outlook 2003 qui envoie mon petit fichier en PJ à mon destinataire :
Sub CreationMail()
'Déclaration des objets
Dim MonApply As Outlook.Application
Dim MonMail As Outlook.MailItem
'Instance des Objets
Set MonApply = Outlook.Application 'Instance de l'application
Set MonMail = MonApply.CreateItem(olMailItem) 'Instance du nouvel E-mail
' Remplissage du Mail :
MonMail.Subject = "Suivi Request"
' MonMail.Body = "PDF généré automatiquement : en cas de manque d'information, contacter l'expéditeur"
MonMail.Attachments.Add "C:\Suivi_Req.pdf"
'Affichage du nouvel Objet Mail
MonMail.Display
MonMail.Recipients.Add "toto@free.fr"
MonMail.Send
'Vide des instances
Set MonApply = Nothing
Set MonMail = Nothing
End Sub
Par contre je trouve pas comment la déclencher par exemple en automatique tous les jours hormis le Samedi et le dimanche pour ne plus avoir à le faire manuellement ...
Quelqu'un connait il un élément de réponse svp ?
Merci d'avance
JB
J'ai la petite macro dans ma cession Outlook 2003 qui envoie mon petit fichier en PJ à mon destinataire :
Sub CreationMail()
'Déclaration des objets
Dim MonApply As Outlook.Application
Dim MonMail As Outlook.MailItem
'Instance des Objets
Set MonApply = Outlook.Application 'Instance de l'application
Set MonMail = MonApply.CreateItem(olMailItem) 'Instance du nouvel E-mail
' Remplissage du Mail :
MonMail.Subject = "Suivi Request"
' MonMail.Body = "PDF généré automatiquement : en cas de manque d'information, contacter l'expéditeur"
MonMail.Attachments.Add "C:\Suivi_Req.pdf"
'Affichage du nouvel Objet Mail
MonMail.Display
MonMail.Recipients.Add "toto@free.fr"
MonMail.Send
'Vide des instances
Set MonApply = Nothing
Set MonMail = Nothing
End Sub
Par contre je trouve pas comment la déclencher par exemple en automatique tous les jours hormis le Samedi et le dimanche pour ne plus avoir à le faire manuellement ...
Quelqu'un connait il un élément de réponse svp ?
Merci d'avance
JB
A voir également:
- VBA et envoie de mail à heure programmée
- Windows live mail - Télécharger - Mail
- Publipostage mail - Accueil - Word
- Changement d'heure - Guide
- Heure de connexion whatsapp qui ne changé pas - Accueil - WhatsApp
- Cdg heure d'arrivée a destination shein - Forum Consommation & Internet
1 réponse
Salut,
J'ai trouvé la Soluce : faire un VBS avec une tache planifiée qui demande à Outlook d'envoyer le message ...
Merci à ceux qui ont cherchés :)
'Déclaration des objets & Instance des Objets
Dim MonApply
Set MonApply = CreateObject("Outlook.Application") 'Instance de l'application
Dim MonMail
Set MonMail = MonApply.CreateItem(olMailItem) 'Instance du nouvel E-mail
' Remplissage du Mail :
MonMail.Subject = "Suivi Request"
MonMail.Body = "PDF généré & envoyé automatiquement : en cas de manque d'information, contacter l'expéditeur"
MonMail.Attachments.Add "C:\Documents and Settings\Truc.pdf"
'Affichage du nouvel Objet Mail
MonMail.Display
'MonMail.Recipients.Add "Toto@toto.fr"
MonMail.Send
'Vide des instances
Set MonApply = Nothing
Set MonMail = Nothing
J'ai trouvé la Soluce : faire un VBS avec une tache planifiée qui demande à Outlook d'envoyer le message ...
Merci à ceux qui ont cherchés :)
'Déclaration des objets & Instance des Objets
Dim MonApply
Set MonApply = CreateObject("Outlook.Application") 'Instance de l'application
Dim MonMail
Set MonMail = MonApply.CreateItem(olMailItem) 'Instance du nouvel E-mail
' Remplissage du Mail :
MonMail.Subject = "Suivi Request"
MonMail.Body = "PDF généré & envoyé automatiquement : en cas de manque d'information, contacter l'expéditeur"
MonMail.Attachments.Add "C:\Documents and Settings\Truc.pdf"
'Affichage du nouvel Objet Mail
MonMail.Display
'MonMail.Recipients.Add "Toto@toto.fr"
MonMail.Send
'Vide des instances
Set MonApply = Nothing
Set MonMail = Nothing
