Macro pra enviar mala direta

[Renato Santana]

Bom dia,

Tenho uma macro para enviar mala direta pelo word, porém a mesma so está funcionando depois que envio uma mala direta manual.

Desta forma o codigo executa perfeito. Talvez seja algum comando que não estou colocando para ativar alguma coisa que ao enviar manualmente ative no word

Sistema retorna que preciso utilizar um e-mail valido, mas minha base está correta com os e-mail.

Segue a macro para analisar:

Dim assunto, arq As String

Dim arq_mail As Integer

'linha de comando para visualizar resultados

ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle

'variavel para receber o numero de e-mails a serem enviados

arq_mail = ActiveDocument.MailMerge.DataSource.RecordCount

For i = 1 To arq_mail

'Declarando variavel que vai lê o paragrafo que tem o codigo da revenda

Set palavra = ActiveDocument.Range( _

Start:=ActiveDocument.Paragraphs(13).Range.Start, _

End:=ActiveDocument.Paragraphs(13).Range.End)

'variavel que vai pegar o codigo da revenda para acrescentar ao assunto

assunto = Right$(palavra, 6)

'variavel para receber o nome do arquivo

arq = Left$(ActiveDocument, 26)

'Rotina para mesclar o documento ao e-mail e enviar automaticamente o e-mail

With ActiveDocument.MailMerge

'rotina que define o assunto de acordo com as variavels arq e assunto

.MailSubject = arq & assunto

.Destination = wdSendToEmail

.SuppressBlankLines = True

With .DataSource

.FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord

.LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord

End With

.Execute Pause:=True

End With

ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord

Next

Deste já agradeço a atenção de todos.

Editado Abril 28, 2011 por Renato Santana