Comment éviter la demande de confirmation dans l'envoi de mail ?
2 réponses
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...
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
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...
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" <Super@discussions.microsoft.com> a écrit dans le message de news:
CDE61A57-CAFC-40AD-B25D-C3C82831C754@microsoft.com...
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 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...
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...
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...
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" <Super@discussions.microsoft.com> a écrit dans le message de news:
CDE61A57-CAFC-40AD-B25D-C3C82831C754@microsoft.com...
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 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...
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...