Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Comment éviter la demande de confirmation dans l'envoi de mail ?

Comment éviter la demande de confirmation dans l'envoi de mail ?

2 réponses
Avatar
Super
J'envoie un mail, Outlook me demande :

"A program is trying to automatically send e-mail on your bahalf.
Do you want to allow this?
If this is unexpected, it may be a virus and you should choose No.

Si vous voulez que Karima sorte : pressez Yes, si vous voulez que Enrique
sorte, pressez No, si vous voulez voter pour Harlem pressez Cancel"

Mon code est le suivant

Sub Envoi_Mail_Automatique()
Dim ol As New Outlook.Application
Dim olmail As MailItem

Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = "ft@migen.ch"
'.CC = Range("a2").Value
.Subject = "Aaaaaaah"
.Attachments.Add "C:\Documents and Settings\fte\My
Documents\Temp\Print\RSI_Perf_Report_27102004.pdf", olByValue
.Body = "Ceci est un message automatique" 'ou une plage nommée"
.Send
End With
Set olmail = Nothing
Set ol = Nothing
End Sub

Si vous savez comment je peux me passer de la question de Nikos, n'hésitez
pas...
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Il y a un utilitaire ClickYes qui te permet cela, il doit se trouver par ici
:
http://faq.outlook.free.fr/
Dans la rubrique Téléchargement.
Cordialement
Pascal

"Super" a écrit dans le message de news:

J'envoie un mail, Outlook me demande :

"A program is trying to automatically send e-mail on your bahalf.
Do you want to allow this?
If this is unexpected, it may be a virus and you should choose No.

Si vous voulez que Karima sorte : pressez Yes, si vous voulez que Enrique
sorte, pressez No, si vous voulez voter pour Harlem pressez Cancel"

Mon code est le suivant

Sub Envoi_Mail_Automatique()
Dim ol As New Outlook.Application
Dim olmail As MailItem

Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = ""
'.CC = Range("a2").Value
.Subject = "Aaaaaaah"
.Attachments.Add "C:Documents and SettingsfteMy
DocumentsTempPrintRSI_Perf_Report_27102004.pdf", olByValue
.Body = "Ceci est un message automatique" 'ou une plage nommée"
.Send
End With
Set olmail = Nothing
Set ol = Nothing
End Sub

Si vous savez comment je peux me passer de la question de Nikos, n'hésitez
pas...



Avatar
Super
Cool Papou, merci pour le tip !

"papou" wrote:

Bonjour
Il y a un utilitaire ClickYes qui te permet cela, il doit se trouver par ici
:
http://faq.outlook.free.fr/
Dans la rubrique Téléchargement.
Cordialement
Pascal

"Super" a écrit dans le message de news:

J'envoie un mail, Outlook me demande :

"A program is trying to automatically send e-mail on your bahalf.
Do you want to allow this?
If this is unexpected, it may be a virus and you should choose No.

Si vous voulez que Karima sorte : pressez Yes, si vous voulez que Enrique
sorte, pressez No, si vous voulez voter pour Harlem pressez Cancel"

Mon code est le suivant

Sub Envoi_Mail_Automatique()
Dim ol As New Outlook.Application
Dim olmail As MailItem

Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = ""
'.CC = Range("a2").Value
.Subject = "Aaaaaaah"
.Attachments.Add "C:Documents and SettingsfteMy
DocumentsTempPrintRSI_Perf_Report_27102004.pdf", olByValue
.Body = "Ceci est un message automatique" 'ou une plage nommée"
.Send
End With
Set olmail = Nothing
Set ol = Nothing
End Sub

Si vous savez comment je peux me passer de la question de Nikos, n'hésitez
pas...