Envoi automatique dun mail avec outlook, prob de dialog box - VB/VBA/VBS - Programmation
Marsh Posté le 26-03-2004 à 14:10:37
OU ALORS qqn pourrait m indiquer quel est la reference au objets OUTLOOK EXPRESS , car avec lui au moi ns on peut decocher les foutus options de securite
Marsh Posté le 26-03-2004 à 10:24:44
bonjour a tous oh grands progammeurs,
jai un projet d echange de donnees qui necessite l envoi dun mail dans outlook 2002 avec comme pieces jointes un fichier .mdb (jsuk la c ok).Jai donc ecrit une fonction sous vba dans un module du fichier mdb pour me lenvoyer automatiquement.
quand je programme les taches planifies de ma machine, la procedure se lance normalement et qd elle commence a vouloir envoyer le mail, une warning dialog box with a progress bar apparait ET DONC neutralise l automatisation de lenvoi de mail.
Jai essayer avec un sendkeys mais le prob est cette progress bar qui m interdit le focus sur yes....
pouvez m aider soit pour retirer cette box soit pour me permettre de cliquer YES.
je vous mets le code a proprement dit
Public Function SendCourier()
Dim objOutlook As Object
Dim objOutlookMsg As Object
Set objOutlook = CreateObject("Outlook.Application" )
Set objOutlookMsg = objOutlook.CreateItem(0)
With objOutlookMsg
.To = "you@where.com"
.Cc = "ifneed@copy.com"
.Subject = "Hello World (one more time)..."
.Body = "This is the body of message"
.HTMLBody = "HTML version of message"
.Attachments.Add ("c:\error1.log" )
.Send 'Let´s go!
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End Function