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.