dionys0s
XLDnaute Impliqué
Bonjour le forum ^^
J'ai ce code qui m'ouvre Outlook. Le problème c'est qu'à l'ouverture d'outlook, et avant d'envoyer, il me donne l'avertissement suivant :
"Un programme tente d'envoyer automatiquement du courrier électronique en votre nom.
L'autorisez-vous à poursuivre ?
Si cette action est inattendue, il se peut qu'il s'agisse d'un virus : dans ce cas, choisissez Non."
Y a t il un moyen de ne pas afficher ce message et d'envoyer le mail quoi qu'il arrive ?
Et dans le cas contraire existe-t-il une alternative ?
Dans l'idéal j'aimerais que l'envoie du mail passe le plus inaperçu possible.
Voici mon code
D'avance merci pour votre aide ^^
J'ai ce code qui m'ouvre Outlook. Le problème c'est qu'à l'ouverture d'outlook, et avant d'envoyer, il me donne l'avertissement suivant :
"Un programme tente d'envoyer automatiquement du courrier électronique en votre nom.
L'autorisez-vous à poursuivre ?
Si cette action est inattendue, il se peut qu'il s'agisse d'un virus : dans ce cas, choisissez Non."
Y a t il un moyen de ne pas afficher ce message et d'envoyer le mail quoi qu'il arrive ?
Et dans le cas contraire existe-t-il une alternative ?
Dans l'idéal j'aimerais que l'envoie du mail passe le plus inaperçu possible.
Voici mon code
D'avance merci pour votre aide ^^
Code:
Shell ("Outlook.exe")
Dim OlApp As Outlook.Application
Dim OlItem As Outlook.MailItem
Set OlApp = New Outlook.Application
Set OlItem = OlApp.CreateItem(olMailItem)
With OlItem
.To = MailDestinataire
.Subject = Objet
.Body = Destinataire & "," & _
vbLf & vbLf & "Voici le lien vers le dernier bon de commande saisi :" & vbLf & _
vbLf & CheminFichier & vbLf & vbLf & _
"Cordialement" & vbLf & Emetteur
.Display
.Save
.Send
End With
Set OlItem = Nothing
Set OlApp = Nothing