message Microsoft Outlook

[chinel]

Salut tout le monde !

voici mon code qui marche bien mai j'ai un message de Microsoft qui me demande <un programme tente d'envoyer atomatique ...> je sais que je dois mettre quelque chose comme <ScreenUpdating = False> mais je sais pas ou le mettre pour ne plus avoir le message

Private Sub CommandButton1_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String


Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

strbody = "Salut Manu" & vbNewLine & vbNewLine & _
TextBox2.Text

On Error Resume Next
With OutMail
.To = "HelpRequest@skynet.be"
.CC = ""
.BCC = ""
.Subject = TextBox3.Value
.Body = strbody
.Send 'or use Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
TextBox2.Value = ""
Courrier.Hide

End Sub

merci de votre aide et bonne année !!!!!!!!!!!!!!

 

[MichelXld]

Re : message Microsoft Outlook

bonjour


Ce message est lié à la sécurité d'Outlook, depuis la version 2002 d'Office.
Description of the developer-related e-mail security features in Outlook 2002

Tu peux le contourner en utilisant par exemple l'utilitaire gratuit ClickYes:
A program is trying to send e-mail on your behalf. Stop this message with ClickYes.



Bonne journée
MichelXld

 

[chinel]

Re : message Microsoft Outlook

merci de la réponse mais il n'y a pas d'autre moyen
mettre un code den plus du mien


merci !