VBA et envoie de mail à heure programmée

Résolu/Fermé
Leteint - 18 mars 2009 à 14:11
 Leteint - 19 mars 2009 à 10:54
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
A voir également:

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
0