Item.send

[eduraiss]

Bonjour le forum

voici une macro qui me permet d'envoyer un fichier a plusieurs collaborateur

Sub envoiMailEtFeuilleActivetoto()


ActiveSheet.Copy ' créée une copie de la feuille active
ActiveWorkbook.SendMail Recipients:="toto.fr", Subject:="coucou " 'envoi Mail
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True

End Sub

Outloock me met a chaque fois un message comme quoi il y a peut être un virus je dois repondre oui pour envoyer

Comment éviter ce message?

Cordialement

 

[lerexcel]

Re : Item.send

fais un sendkey,true "v"

 

[lerexcel]

Re : Item.send

Faut que tu passe par :
Dim Outappli as Object
Dim mail as Object


set Outappli = CreateObject("Outlook.Application")
set mail = Outappli.CreateItem(0)
With mail
. To =
. CC =
. Subject =
. Body =
. Attachments.add (ta feuille)

Outmail.display
SendKeys "%v",true

End with

 

[tototiti2008]

Re : Item.send

Bonjour à tous,

pour la question

Outloock me met a chaque fois un message comme quoi il y a peut être un virus je dois repondre oui pour envoyer

voici un lien qui pourrait t'aider (CDO)

https://www.excel-downloads.com/threads/display-alerts-pour-outlook.18547/