Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro to email
I'm fairly new to VBE. I want to create a macro that emails sheets in a
workbook. I am using a macro from Ron de Bruin of this community (his website). Here is the problems I running into. 1-the sheets are not automatically emailed, I have to go into Outlook and send. However, nothing is happening. I don't received the emails (I have a Yahoo account). 2-The emails are not deleted after being send (I assume the macro does that). I just want to be able to email the sheets once I click on the forms button. I have enclosed the macro below. Sub EmailReports() Dim sh As Worksheet Dim wb As Workbook Dim strdate As String Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets If sh.Range("m1").Value Like "?*@?*.?*" Then strdate = Format(Now, "mm--dd--yy h-mm-ss") sh.Copy Set wb = ActiveWorkbook With wb .SaveAs "Sheet" & sh.Name & "of" _ & ThisWorkbook.Name & "" & strdate & ".xls" .SendMail ActiveSheet.Range("m1").Value, _ "This is the Subject Line" .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With End If Next sh Application.ScreenUpdating = True End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro to email
"Mo" wrote in message ... 1-the sheets are not automatically emailed, I have to go into Outlook and send. However, nothing is happening. I don't received the emails (I have a Yahoo account). Sounds like you have a wrong email address. 2-The emails are not deleted after being send (I assume the macro does that). No it doesn't. It kills the file it creates, but it doesn't delete the email. It doesn't know what mail client you are using. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro to email
Hi Mo
1) this is a Outlook setting, see ToolsOptions Sending automatic in Outlook is not always working correct See number 4 http://www.rondebruin.nl/mail/problems.htm If the mails are in your Outbox and the address is OK it must work 2)It only delete the file with one sheet you send and not the mail -- Regards Ron de Bruin http://www.rondebruin.nl "Mo" wrote in message ... I'm fairly new to VBE. I want to create a macro that emails sheets in a workbook. I am using a macro from Ron de Bruin of this community (his website). Here is the problems I running into. 1-the sheets are not automatically emailed, I have to go into Outlook and send. However, nothing is happening. I don't received the emails (I have a Yahoo account). 2-The emails are not deleted after being send (I assume the macro does that). I just want to be able to email the sheets once I click on the forms button. I have enclosed the macro below. Sub EmailReports() Dim sh As Worksheet Dim wb As Workbook Dim strdate As String Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets If sh.Range("m1").Value Like "?*@?*.?*" Then strdate = Format(Now, "mm--dd--yy h-mm-ss") sh.Copy Set wb = ActiveWorkbook With wb .SaveAs "Sheet" & sh.Name & "of" _ & ThisWorkbook.Name & "" & strdate & ".xls" .SendMail ActiveSheet.Range("m1").Value, _ "This is the Subject Line" .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With End If Next sh Application.ScreenUpdating = True End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Using Macro how to create email link for the email addresses in aRange or Selection | Excel Worksheet Functions | |||
Email Macro | New Users to Excel | |||
How do I create an email macro to auto fill the email? | Excel Discussion (Misc queries) | |||
macro to email | Excel Programming | |||
Macro To Email XLS | Excel Discussion (Misc queries) |