pop up intempestif sous XP (outlook)

[fredl]

Bonjour à tous,
depuis mon récent passage sous xp,
lorsque j'envoie des mails via excel (sur outtlook), un pop up intempestif apparait (voir fichier joint) obligeant l'intervention de l'utilisateur.. :angry:
Savez vous comment faire pour l'outrepasser?
Merci de votre réponse.
Cdt
Frédéric

 

[enzo]

bonjour le forum, le fil

a priori sauf erreur ce n'est pas possible!

a voir si les autres ont des news sur le sujet

a+

 

[PascalXLD]

Bonjour

Il n'y a pas le fichier joint

QUel pop-up tu parles ?

Peut-être en mettant un

application.displayalerts=false

juste avant l'envoi par excel dans ta macro à voir

 

[MichelXld]

rebonjour Frederic , bonjour Enzo , bonjour Pascal

ces liens pourront peut etre t'aider

Lien supprimé

Lien supprimé


Frederic , avant de poser de nouvelles questions , n'oublies pas de donner suite aux sujets en cours ...

Lien supprimé


bonne journée
MichelXld

 

[fredl]

Bonjour Enzo,Pascal et Michel,

avant tout, milles excuses pour ne pas avoir donné suite à vos messages...
En fait, j'ai eu beaucoup de mal à retrouver mon message, car, absent de ma messagerie privée...
Bref, je suis content de le retrouver aujourdhui, et vous remercie d'avance de vos remarques que je vais potasser.
Cependant, je me permets de répondre à vos questions :
je vous joint le message d'erreur (qui n'était pas zippé la derniere fois...)

Quand au script utilisé faisant apparaitre le message... :
----------------------------------------------
Sub Moutlook()
.
'Déclaration des objets de la messagerie
Set mailobj = CreateObject('Outlook.Application')
Set mail = mailobj.CreateItem(olMailItem)

'désactivation des messages d'alerte
Application.DisplayAlerts = False

'On prépare l'envoi de Mail
With mail
.SentOnBehalfOfName = SentOnName
'Mettre ici le ou les destinataires
.To = 'dstinataire'
.Subject = 'Commande ouverte '
.Body = 'essai'
.Display
.Send
End With


'réactiver les messages d'alerte
Application.DisplayAlerts = False
End Sub
----------------------------------------------------------

voila,...si vous avez d'autres infos...
Merci d'avance
Excellement
Frédéric.

 

[PascalXLD]

Bonjour

Il y a une ligne qui me parait bizarre dans ton code

.To = 'dstinataire'

J'ai l'impression que là tu as une erreur

 

[MichelXld]

bonjour Frederic , Enzo et Pascal

Frederic , je ne suis pas sur que tu pourras empecher le message d'alerte en utilisant cette methode

as tu regardé les liens dans mon message du 22/07/2005 11:40

un exemple

 Sub EnvoiMail_AvecNotification()
'testé avec WinXP & Excel2002
Dim iMsg As Object, iConf As Object

Set iMsg = CreateObject('CDO.Message')
Set iConf = CreateObject('CDO.Configuration')

With iMsg
Set .Configuration = iConf
.To = 'leForum@xld.fr' 
'.From = 'youralias@yourdomain.com'
.Subject = 'Le titre du message'
.HTMLBody = 'Ceci est un essai ...'
.Fields('urn:schemas:mailheader:disposition-notification-to') = 'expediteur@monMail.fr'
.Fields('urn:schemas:mailheader:return-receipt-to') = 'expediteur@monMail.fr'
.Fields.Update
.Send
End With

End Sub

bonne soiree
MichelXld

Message édité par: MichelXld, à: 05/08/2005 16:42