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

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

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

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

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

.