Send Email with Attachment VBA Code

[kevins]

Hey there,



I have a button I use on a form to send automated emails to my candidates for interviews. It works great but I'd like to have it automatically attach a file as well. Anyone know how I can automatically include attachments? Code is below. Thanks!

Private Sub Command342_Click()
Dim strBody As String
Dim strTo As String


strBody = [First Name] & "," & Chr(13) & vbCrLf _
& "It was a pleasure speaking with you today. We are confirmed to meet in the Harper Associates office on " & [Interview1] & " at " & [Harper Interview Time] & "." & Chr(13) & vbCrLf _
& "Our address is 31000 Northwestern Highway, Suite 240, Farmington Hills, MI 48334. We are located on the NE corner of 13 Mile and Northwestern Highway (entrance is on Northwestern - look for the Level One Bank sign outside). View our location on Google Maps here: http://goo.gl/maps/WpMu." & Chr(13) & vbCrLf _
& "Please also fill out the attached application and bring it with you when you come in. Thanks " & [First Name] & "," & " have a great day!" & Chr(13) & vbCrLf _
& "Best Regards," & Chr(13) & vbCrLf _


Debug.Print Len(strBody)
strTo = [Contact Name] & IIf(Nz([E-mail Address]) <> "", " [" & [E-mail Address] & "]", "")
DoCmd.SendObject , , , strTo, , , "Interview Confirmed at Harper Associates", strBody, True
End Sub

[pbaldy]

To send a file you'd need to use Outlook automation:

http://support.microsoft.com/?kbid=161088

or CDO. SendObject can only send an attachment that it creates on the fly, using the first arguments.

[kevins]

Thanks, I'll give it a try.