K
keith
I need to copy a word document with graphics from a document created using
mail merge then read the document into the body of outlook emails messages, i
can copy the text and formatting ok but it doesnt copy the graphics?
outlook code
With objOutlookMsg
' .Reply
.To = "(e-mail address removed)"
.Subject = "(e-mail address removed)"
'The content of the document is used as the body for the email
.BodyFormat = olFormatHTML
.HTMLBody = strBody
.Display
.FlagStatus = olNoFlag
End With
Mail Merge Code
Set objWord = GetObject("D:\sys_data\word\SEATAG-AD-FM01-04A Course
Quotation.doc", "Word.Document")
' Make Word visible.
objWord.Application.Visible = False
objWord.Activate
' Set the mail merge data source as the new_seatag sql database.
objWord.MailMerge.OpenDataSource _
Name:="", _
Connection:="DSN=new_seatag;DATABASE=new_seatag;uid=seatag02;pwd=seatag02;", _
SQLStatement:="Select * from mail_merge_quotations where course_quote_id=" &
Forms!quotations!course_quote_id, _
SubType:=wdMergeSubTypeWord2000
' opens the mail
objWord.MailMerge.Destination = wdSendToNewDocument
objWord.MailMerge.Execute (False)
any clues?
i have svaed the data to htm documents..
mail merge then read the document into the body of outlook emails messages, i
can copy the text and formatting ok but it doesnt copy the graphics?
outlook code
With objOutlookMsg
' .Reply
.To = "(e-mail address removed)"
.Subject = "(e-mail address removed)"
'The content of the document is used as the body for the email
.BodyFormat = olFormatHTML
.HTMLBody = strBody
.Display
.FlagStatus = olNoFlag
End With
Mail Merge Code
Set objWord = GetObject("D:\sys_data\word\SEATAG-AD-FM01-04A Course
Quotation.doc", "Word.Document")
' Make Word visible.
objWord.Application.Visible = False
objWord.Activate
' Set the mail merge data source as the new_seatag sql database.
objWord.MailMerge.OpenDataSource _
Name:="", _
Connection:="DSN=new_seatag;DATABASE=new_seatag;uid=seatag02;pwd=seatag02;", _
SQLStatement:="Select * from mail_merge_quotations where course_quote_id=" &
Forms!quotations!course_quote_id, _
SubType:=wdMergeSubTypeWord2000
' opens the mail
objWord.MailMerge.Destination = wdSendToNewDocument
objWord.MailMerge.Execute (False)
any clues?
i have svaed the data to htm documents..