Email and possibly a Fax with Word [Resolved]

[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.

[dglienna]

I added to the last post before I saw your comment. Sorry. I'll start making new threads instead of editing the old ones.

[RobDog888]

Anything about the fax problem there?

I found a couple of links at MSDN that may help explain the bug.

http://support.microsoft.com/default...b;en-us;292094
http://support.microsoft.com/default...b;en-us;212893
http://support.microsoft.com/default...b;en-us;813995

[dglienna]

That doesn't look good about sending faxes. Who has Symantec anyways? Plus it said somewhere else that it didn't work for mailmerge if you had Symantec installed. I think it only gets installed if you have Exchange server, and no email.

I'll just leave an option to keep the merge in Word, and save it if you want, or fax the pages one at a time (or in groups) Maybe I'll include a page that contains all of the fax numbers. That would help.

I guess it isn't possible to automate the faxing of mailmerges.


How about the SP2 issues? Can't I have the message pop up once? It pops up for each record during the mergetoemail. That seem like overkill, to me.
I know there is a way to get around it, but haven't read anything about it.
Is there a way to programmatically set up for clients?

[RobDog888]

In one of the kb's it states "Microsoft Windows 2000 fax program".
So I assume that if you have something like WinFax it would work?

With XP SP-2 isnt there something to tell it to allow access for certain
programs? I havent looked into SP-2 features/fixes/security but ???

Is there a way to programmatically set up for clients?

How do you mean.