VBA et envoie de mail à heure programmée Résolu/Fermé

Question

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

Leteint · Answer

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

VBA et envoie de mail à heure programmée

1 réponse

Discussions similaires