Printable View
I'm sending an excel sheet attached to an email through Outlook
[VBA]
ActiveWorkbook.SendMail Recipients:=names
[/VBA]
I recieve an alert notifying me that an application is attempting to send an automated email. It must be confirmed before the email is sent. Any way to not get this alert??
This is actually a safety enhancement to try and prevent malicious code from propagating itself through your email.
If you want to be able to use the SendMail method, which can be handy, then I recommend using ClickYes:
http://www.contextmagic.com/express-clickyes/
Other alternatives include using the CDO library, or using the Redemption library:
http://www.dimastr.com/redemption/
Patrick
You can use a send key method. Take this example below.
[VBA]
Sub Send_Test()
Dim objol As New Outlook.Application
Dim objmail As MailItem
Set objol = New Outlook.Application
Set objmail = objol.CreateItem(olMailItem)
With objmail
.To = "Anybody@home.com"
.Subject = "Who/Me"
.Body = ""
.NoAging = True
.Attachments.Add "C:\A test.xls"
.Display
End With
Set objmail = Nothing
Set objol = Nothing
SendKeys "%{s}", True
End Sub
[/VBA]
But that would still trigger the security alert. The alert pops up whenever another app tries to touch the Outlook object model.Quote:
Originally Posted by Shazam
Patrick
Hi,
To just send an email without any user interaction, you need Outlook Redemption. Google it on the web. For help, check out www.slipstick.com or Sue Mosher's site www.outlookcode.com.
I prefer to send email using late binding personally. Check out kpuls site on late binding here: http://www.excelguru.ca/XLVBA/XLVBA08.htm, or post back if you need an example.
Send key method is a key stroke. It should by pass the security alert. I've tested it and it does by pass it.
I would not recommend using SendKeys whatsoever. It's too volatile of an action.
I never had a problem using it. what are the potential problems might occur?
Timing, slow apps, stepping through, debugging, the list goes on. If you can stray away from it, I would.