If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
E-mail automation
Hello, I have the following macro started. It opens a new mail form and
converts my excel file into a PDF ready to be sent. Is there anyway to add code that will complete the To: section and actually mail the file automatically? Sub Mail() ' ' Mail Macro ' ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\DOCUME~1\G2844JF\LOCALS~1\Temp\Copy of MASTER Production Meeting.pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas _ :=False, OpenAfterPublish:=False Application.Dialogs(xlDialogSendMail).Show End Sub -- Thank you for your time! John -- Thank you for your time! John |
#2
|
|||
|
|||
E-mail automation
Check out this link...
http://www.rondebruin.nl/sendmail.htm -- HTH... Jim Thomlinson "Very Basic User" wrote: Hello, I have the following macro started. It opens a new mail form and converts my excel file into a PDF ready to be sent. Is there anyway to add code that will complete the To: section and actually mail the file automatically? Sub Mail() ' ' Mail Macro ' ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\DOCUME~1\G2844JF\LOCALS~1\Temp\Copy of MASTER Production Meeting.pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas _ :=False, OpenAfterPublish:=False Application.Dialogs(xlDialogSendMail).Show End Sub -- Thank you for your time! John -- Thank you for your time! John |
#3
|
|||
|
|||
E-mail automation
If you use Outlook see
http://www.rondebruin.nl/pdf.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Very Basic User" wrote in message ... Hello, I have the following macro started. It opens a new mail form and converts my excel file into a PDF ready to be sent. Is there anyway to add code that will complete the To: section and actually mail the file automatically? Sub Mail() ' ' Mail Macro ' ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\DOCUME~1\G2844JF\LOCALS~1\Temp\Copy of MASTER Production Meeting.pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas _ :=False, OpenAfterPublish:=False Application.Dialogs(xlDialogSendMail).Show End Sub -- Thank you for your time! John -- Thank you for your time! John |
#4
|
|||
|
|||
E-mail automation
Great site, thank you
-- Thank you for your time! John "Jim Thomlinson" wrote: Check out this link... http://www.rondebruin.nl/sendmail.htm -- HTH... Jim Thomlinson "Very Basic User" wrote: Hello, I have the following macro started. It opens a new mail form and converts my excel file into a PDF ready to be sent. Is there anyway to add code that will complete the To: section and actually mail the file automatically? Sub Mail() ' ' Mail Macro ' ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\DOCUME~1\G2844JF\LOCALS~1\Temp\Copy of MASTER Production Meeting.pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas _ :=False, OpenAfterPublish:=False Application.Dialogs(xlDialogSendMail).Show End Sub -- Thank you for your time! John -- Thank you for your time! John |
#5
|
|||
|
|||
E-mail automation
Incredible stuff, thank you
-- Thank you for your time! John "Ron de Bruin" wrote: If you use Outlook see http://www.rondebruin.nl/pdf.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Very Basic User" wrote in message ... Hello, I have the following macro started. It opens a new mail form and converts my excel file into a PDF ready to be sent. Is there anyway to add code that will complete the To: section and actually mail the file automatically? Sub Mail() ' ' Mail Macro ' ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\DOCUME~1\G2844JF\LOCALS~1\Temp\Copy of MASTER Production Meeting.pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas _ :=False, OpenAfterPublish:=False Application.Dialogs(xlDialogSendMail).Show End Sub -- Thank you for your time! John -- Thank you for your time! John . |
Thread Tools | |
Display Modes | |
|
|