Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Emailing using code
I am using code to email my worksheet. Everytime I run the code I get a
message that says; A program is trying to send an email on your behalf. Do you wish to continue? Of course I want to continue because I am sending the email intentionally. How can I stop this message from coming up and just have my Outlook email send? Is this an Outlook security setting or can I bypass this message using VBA? Thanks for any help -- Stephen |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Emailing using code
Here is the basic code:
Sub SendMyMail() Dim msgTo As String Set appOutlook = CreateObject("Outlook.Application") Set MailOutLook = appOutlook.CreateItem(olMailItem) msgTo = InputBox("Please enter e-mail address", "Address") With MailOutLook .To = msgTo .CC = "" .BCC = "" .Subject = "" .Body = Location '.Attachments.Add "C:\Path\File.here" .Send End With MsgBox "Message sent to " & msgTo, vbOKOnly End Sub If you want to add an attachement, un-comment the .Attachements.Add line and add the proper path. Post back with questions! -- Regards, PJ Please rate this post using the vote buttons if it was helpful. "Stephen sjw_ost" wrote: I am using code to email my worksheet. Everytime I run the code I get a message that says; A program is trying to send an email on your behalf. Do you wish to continue? Of course I want to continue because I am sending the email intentionally. How can I stop this message from coming up and just have my Outlook email send? Is this an Outlook security setting or can I bypass this message using VBA? Thanks for any help -- Stephen |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Emailing using code
Yes, I have this code and am using it.
My question is, how do I stop the message from coming up that says; A program is attempting to send an email on your behalf. Do you wish to continue. How do I stop this message from coming up and just seamlessly send the email when the code is invoked? -- Stephen "PJFry" wrote: Here is the basic code: Sub SendMyMail() Dim msgTo As String Set appOutlook = CreateObject("Outlook.Application") Set MailOutLook = appOutlook.CreateItem(olMailItem) msgTo = InputBox("Please enter e-mail address", "Address") With MailOutLook .To = msgTo .CC = "" .BCC = "" .Subject = "" .Body = Location '.Attachments.Add "C:\Path\File.here" .Send End With MsgBox "Message sent to " & msgTo, vbOKOnly End Sub If you want to add an attachement, un-comment the .Attachements.Add line and add the proper path. Post back with questions! -- Regards, PJ Please rate this post using the vote buttons if it was helpful. "Stephen sjw_ost" wrote: I am using code to email my worksheet. Everytime I run the code I get a message that says; A program is trying to send an email on your behalf. Do you wish to continue? Of course I want to continue because I am sending the email intentionally. How can I stop this message from coming up and just have my Outlook email send? Is this an Outlook security setting or can I bypass this message using VBA? Thanks for any help -- Stephen |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Emailing using code
See
http://www.rondebruin.nl/mail/prevent.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Stephen sjw_ost" wrote in message ... Yes, I have this code and am using it. My question is, how do I stop the message from coming up that says; A program is attempting to send an email on your behalf. Do you wish to continue. How do I stop this message from coming up and just seamlessly send the email when the code is invoked? -- Stephen "PJFry" wrote: Here is the basic code: Sub SendMyMail() Dim msgTo As String Set appOutlook = CreateObject("Outlook.Application") Set MailOutLook = appOutlook.CreateItem(olMailItem) msgTo = InputBox("Please enter e-mail address", "Address") With MailOutLook .To = msgTo .CC = "" .BCC = "" .Subject = "" .Body = Location '.Attachments.Add "C:\Path\File.here" .Send End With MsgBox "Message sent to " & msgTo, vbOKOnly End Sub If you want to add an attachement, un-comment the .Attachements.Add line and add the proper path. Post back with questions! -- Regards, PJ Please rate this post using the vote buttons if it was helpful. "Stephen sjw_ost" wrote: I am using code to email my worksheet. Everytime I run the code I get a message that says; A program is trying to send an email on your behalf. Do you wish to continue? Of course I want to continue because I am sending the email intentionally. How can I stop this message from coming up and just have my Outlook email send? Is this an Outlook security setting or can I bypass this message using VBA? Thanks for any help -- Stephen |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Emailing using code
Odd. The reason I use that code is because it stops the pop-up from coming
up. I see that someone posted a link. My network must have that configuration. -- Regards, PJ Please rate this post using the vote buttons if it was helpful. "Stephen sjw_ost" wrote: Yes, I have this code and am using it. My question is, how do I stop the message from coming up that says; A program is attempting to send an email on your behalf. Do you wish to continue. How do I stop this message from coming up and just seamlessly send the email when the code is invoked? -- Stephen "PJFry" wrote: Here is the basic code: Sub SendMyMail() Dim msgTo As String Set appOutlook = CreateObject("Outlook.Application") Set MailOutLook = appOutlook.CreateItem(olMailItem) msgTo = InputBox("Please enter e-mail address", "Address") With MailOutLook .To = msgTo .CC = "" .BCC = "" .Subject = "" .Body = Location '.Attachments.Add "C:\Path\File.here" .Send End With MsgBox "Message sent to " & msgTo, vbOKOnly End Sub If you want to add an attachement, un-comment the .Attachements.Add line and add the proper path. Post back with questions! -- Regards, PJ Please rate this post using the vote buttons if it was helpful. "Stephen sjw_ost" wrote: I am using code to email my worksheet. Everytime I run the code I get a message that says; A program is trying to send an email on your behalf. Do you wish to continue? Of course I want to continue because I am sending the email intentionally. How can I stop this message from coming up and just have my Outlook email send? Is this an Outlook security setting or can I bypass this message using VBA? Thanks for any help -- Stephen |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Emailing using code
Maybe you use 2007 ?
-- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "PJFry" wrote in message ... Odd. The reason I use that code is because it stops the pop-up from coming up. I see that someone posted a link. My network must have that configuration. -- Regards, PJ Please rate this post using the vote buttons if it was helpful. "Stephen sjw_ost" wrote: Yes, I have this code and am using it. My question is, how do I stop the message from coming up that says; A program is attempting to send an email on your behalf. Do you wish to continue. How do I stop this message from coming up and just seamlessly send the email when the code is invoked? -- Stephen "PJFry" wrote: Here is the basic code: Sub SendMyMail() Dim msgTo As String Set appOutlook = CreateObject("Outlook.Application") Set MailOutLook = appOutlook.CreateItem(olMailItem) msgTo = InputBox("Please enter e-mail address", "Address") With MailOutLook .To = msgTo .CC = "" .BCC = "" .Subject = "" .Body = Location '.Attachments.Add "C:\Path\File.here" .Send End With MsgBox "Message sent to " & msgTo, vbOKOnly End Sub If you want to add an attachement, un-comment the .Attachements.Add line and add the proper path. Post back with questions! -- Regards, PJ Please rate this post using the vote buttons if it was helpful. "Stephen sjw_ost" wrote: I am using code to email my worksheet. Everytime I run the code I get a message that says; A program is trying to send an email on your behalf. Do you wish to continue? Of course I want to continue because I am sending the email intentionally. How can I stop this message from coming up and just have my Outlook email send? Is this an Outlook security setting or can I bypass this message using VBA? Thanks for any help -- Stephen |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Remove code from a worksheet before emailing | Excel Programming | |||
remove vba code before emailing as attachment | Excel Programming | |||
Emailing Worksheet with VBA Code | Excel Programming | |||
Need help with Emailing Code Please | New Users to Excel | |||
Emailing Sheets Code Edit | Excel Programming |