Envoi automatique dun mail avec outlook, prob de dialog box

Envoi automatique dun mail avec outlook, prob de dialog box - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 26-03-2004 à 10:24:44   

Reply

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed