M
marjusz
Hello!
I am the user of Microsost Outlook and Windows 2000. I have this sheet
done in Excel and the following fragment of the code in it.
Set olApp1 = CreateObject("Outlook.Application")
With olApp1.CreateItem(0)
.to = "(e-mail address removed)"
.body = “anything”
.ReadReceiptRequested = False
.Send
End With
Set olApp1 = Nothing
It allows me to send e-mail automatically. But when I try to run this
code the window with the following message shows.
"This programme is trying to send e-mail automatically. Do you want to
allow it? If it’s unexpected, it could be caused by the virus
and you should press NO key.
Finally, if I still want to send that “hidden” e-mail I
need to press YES key. How shall I include this protection to send
e-mails automatically? I know it’s possible because this
programme works perfectly well on other computers... unfortunately, I
can’t find the reason.
Good luck with my question!
(e-mail address removed)
I am the user of Microsost Outlook and Windows 2000. I have this sheet
done in Excel and the following fragment of the code in it.
Set olApp1 = CreateObject("Outlook.Application")
With olApp1.CreateItem(0)
.to = "(e-mail address removed)"
.body = “anything”
.ReadReceiptRequested = False
.Send
End With
Set olApp1 = Nothing
It allows me to send e-mail automatically. But when I try to run this
code the window with the following message shows.
"This programme is trying to send e-mail automatically. Do you want to
allow it? If it’s unexpected, it could be caused by the virus
and you should press NO key.
Finally, if I still want to send that “hidden” e-mail I
need to press YES key. How shall I include this protection to send
e-mails automatically? I know it’s possible because this
programme works perfectly well on other computers... unfortunately, I
can’t find the reason.
Good luck with my question!
(e-mail address removed)