vb_phil

Bonjour à tous,

Je n'ai pas réussis à trouver le code pour empècher le message d'alerte de out look:

"un autre programme tente d'envoyer un message ......"

L'algorite que je me sers pour obliger l'utilisateur à envoyer le message est le suivant:

si l'opérateur dit non à l'envoit du message ceci crée une erreur et avec la fontion on error goto "mon_erreur" placé en début de programme. Je recall le sub d'envoit. cette tactique oblige l'opérateur à dire oui sinon il tourne en rond et le programme repart sans arrèt.

Sub send_email()
Dim ol As Object
Dim MailSendItem As Object
Set ol = CreateObject("Outlook.application")
Set MailSendItem = ol.CreateItem(olMailItem)
Dim olns As Object
Dim objFolder As Object
Set olns = ol.Getnamespace("MAPI")

On Error GoTo mon_erreur:

With MailSendItem
.Subject = "bla bla bla"
.Body = "bli bli bli"
.to = "bla@tblabla.com"
.Cc = "bli@blibli.com"
.Send
End With

Set ol = Nothing
Set MailSendItem = Nothing
Set olns = Nothing

Exit Sub
mon_erreur:
Call send_email()

End Sub

Si quelqu'un à de meilleur solution me prévenir
Merci

vb_phil