SendObject with attachment assigned by VB

[Brian G via AccessMonster.com]

Hi there,
I see a number of SendObject threads but none that show how we can attach a
document other than something created directly from Access in rtf or txt or
as a snapshot

Is there a method for attaching files created independently of the SendObject
call?

 

[Rick Brandt]

Hi there,
I see a number of SendObject threads but none that show how we can
attach a document other than something created directly from Access
in rtf or txt or as a snapshot

Is there a method for attaching files created independently of the
SendObject call?

No. You have to automate an external messaging library (like Outlook, MAPI ,
CDO), to do that.

 

[David C. Holley]

Not to my knowledge, however I do use SendObject to output the report to
a file which is then attached to MailItem object created using the
Outlook Object Model.

Set objOutlook = CreateObject("Outlook.application")
Set newMail = objOutlook.CreateItem(olMailItem)

newMail.Body = strMsgText
newMail.to = strEmailAddress
Set newMailAttachments = newMail.Attachments
file1 = strTargetFolder & "\rptInvoice.snp"
file2 = strTargetFolder & "\rptInvoiceRemittanceAdvice.snp"
newMailAttachments.Add file1, olByValue, 1, "Invoice"
newMailAttachments.Add file2, olByValue, 1, "Remittance Advice"
newMail.Subject = "INVOICE: " & strDescription & " (" & Now() & ")"
newMail.Display

If you want to send the item automatically w/out displaying it use
newMail.Send and delete newMail.Display.