Learn when you want, where you want with convenient online training courses. Sign up now!
[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More
Experts Exchange Solution brought to you by
"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.
Public MySMTP As New SMTPClient
Public MyPop3 As New POP3Client
' SHOULD YOU REQUIRE A PARAMETER FOR YOUR REPORT
.ParameterFields(1).AddCurrentValue Str(YOUR PARAMETER)
.ExportOptions.PDFExportAllPages = True
.ExportOptions.DestinationType = crEDTDiskFile
.ExportOptions.DiskFileName = "YourFilePath\" & sYourFileName & ".pdf"
.ExportOptions.FormatType = crEFTPortableDocFormat
.DisplayProgressDialog = False
Dim MyMsg As New CSMAILLib.MESSAGE
MyMsg.Subject = sSubject
MyMsg.To(1) = sRecipient
MyMsg.From(1) = sSender
' SHOULD YOU HAVE CC OR BCC IN YOUR MAIL
MyMsg.CC(1) = sCC
MyMsg.bCC(1) = sBCC
Dim sSection As CSMAILLib.Section
MyMsg.Sections(1).Body = Trim(sBody)
Set sSection = MyMsg.Sections.Add
sSection.AttachBodyFromFile ("YourFilePath\" & sYourFileName & ".pdf")
' for some exchange servers the user and pass are not required
MySMTP.ConnectESMTP sSMTPServer, "", "", "", sSMTPPort ' For Exchange 2010
' else use a user pass for a mail server
MySMTP.ConnectESMTP sSMTPServer, sPOP3User, sPOP3Pass, sPop3Login, sSMTPPort
' when you are done it does not hurt to kill the file afterwards to keep things clean
Kill ("YourFilePath\" & sYourFileName & ".pdf")
Open in new window
Learn about longtime user Rowby Goren and his great contributions to the site. We explore his method for posing questions that are likely to yield a solution, and take a look at how his career transformed from a Hollywood writer to a website entrepreneur.
Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.