Email and possibly a Fax with Word [Resolved]

[dglienna]

Word XP (I guess that it's 2002 ? )

[RobDog888]

Ok, there is no properties for prepopulating that dialog in 2003, but there is a way to include to
the reciepient in a filed in your recordsource. So if you add a field with the email addresses
then we can specify to use that feild as the receipient. Also, you can create a separate
address book and designate that as the listing too.

[dglienna]

I have a field already that has the email address.
I also have a subject, and want to send html letters.


(still spreading points, btw)

[dglienna]

The field is Email, and is already in the recordset. There are multiple records to each emall address, but we can send out multiple emails.

[RobDog888]

Ok, found the proper way to do this.

Dim oDoc As Word.Document
    Set oDoc = ActiveDocument
    With oDoc.MailMerge.DataSource
        .FirstRecord = 1
        .LastRecord = .RecordCount
    End With
    With oDoc.MailMerge
        'If OptPrinter.Value = True Then
            '.Destination = wdSendToNewDocument 'wdSendToNewDocument;wdSendToPrinter; wdSendToFax; wdSendToEmail
        'ElseIf optFax.Value = True Then
            '.Destination = wdSendToFax
        'ElseIf optEmail.Value = True Then
            .Destination = wdSendToEmail
            .MailSubject = "RobDog888 VB/Word Guru™"
            .MailAddressFieldName = "FieldThatContainsTheEmailAddresses"
            .MailAsAttachment = False
            .MailFormat = wdMailFormatHTML
            .Execute
        'End If
    End With

[dglienna]

Great. I'll try that in a minute. Working on a sample for someone else.

The only problem is the message that pops up for each message. Is there any easy way around it? I took about 10 minutes to go through 35 records.

Or maybe could just combine records?

Anything about the fax problem there?

[RobDog888]

This should work, but it depends on how your recordset is setup .

Now the .Execute wil execute it without showing it to the user. The .Show
will show it, in case that is an option you need.