INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

Email with Attachment

Email with Attachment

(OP)
Hello,

I have a report titled “Monthly ABC Report”

I use the following code to send out the email.
How do I attached the “Monthly ABC Report” to my code below so that it will attach when I send out this email and change it to a PDF?

CODE

Option Compare Database

Sub Mail_Outlook_With_Signature_Html_1()
' Working in Office 2000-2013
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    strbody = "Please find attached last month's Regions Monthly Report along with #ACCNTS and #GUARS.<br>" & _
              "<br><br>" & _
              "Regions Monthly Presumptive #ACCNTS Export.<br>" & _
              "Regions Monthly Presumptive #GUARS Export.<br>" & _
              "<br><br>" & _
              "Thank you<br>"

On Error Resume Next
 
         

    With OutMail
        .Display
        .To = "
        .CC = "
        .BCC = ""
        .Subject = "Regions Monthly Report"
        .HTMLBody = strbody & "<br>" & .HTMLBody
        .Send
      
    End With

    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub 

TCB

RE: Email with Attachment

Is the report pdf already on disk or do you need to generate it as well?

John

RE: Email with Attachment

CODE

.Attachments.Add (sFullPathToFile) 

But as John states, this will only work if there is a physical file located on the filesystem.

also what are you trying to achieve with this?

CODE

.HTMLBody = strbody & "<br>" & .HTMLBody 

"In complete darkness we are all the same, it is only our knowledge and wisdom that separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!"
Free Electronic Dance Music

RE: Email with Attachment

(OP)

CODE

.HTMLBody = strbody & "<br>" & .HTMLBody 
this is where I put my name and title

TCB

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Resources

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close