locked
Envio de email pelo Excel usando contas de email RRS feed

  • Pergunta

  • Galera,

    Estou com uma dúvida.

    Preciso mandar um email através de uma conta de email que não é a do usuário.

    Este usuário possui uma caixa jurídica e pelo VBA não estou conseguindo.

    Me ajudem!!!!

    Segue minha SUB para envio do email

     

    Sub EnviaEmail()
    On Error GoTo trata_erro
    Dim strFrom As String

        Dim rng As Range
        Dim OutApp As Object
        Dim OutMail As Object
       

        Set rng = Nothing
        On Error Resume Next
        

        Set rng = Selection.SpecialCells(xlCellTypeAllFormatConditions)
        Set rng = Sheets("Modelo").Range("A1:H10000") '.SpecialCells(xlCellTypeVisible)
        On Error GoTo 0

        If rng Is Nothing Then
            MsgBox "A seleção de dados está incorreta ou a plnilha está protegida." & _
                   vbNewLine & "Por favor, corrija e tente novamente.", vbOKOnly
            Exit Sub
        End If

        With Application
            .EnableEvents = False
            .ScreenUpdating = False
        End With

        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)
        
        On Error Resume Next
        
        With OutMail

            'AQUI ESTÁ O PROBLEMA. O OUTLOOK NÃO RECONHECE O ".From", ONDE EU INFORME   DE QUAL E-MAIL EU QUERO ENVIAR
            .From = "" & sCaixaJuridica &""

            .To = "" & sPara & ""
            .CC = "" & strCC & ""
            .BCC = "" & strCCO & ""
            .Subject = "" & sAssunto & ""
            .HTMLBody = RangetoHTML(rng)
            '.Display                   'Exibe antes de enviar
            .Send                       'Envia o e-mail
        End With
        On Error GoTo 0

        With Application
            .EnableEvents = True
            .ScreenUpdating = True
        End With

        Set OutMail = Nothing
        Set OutApp = Nothing
       
    Exit Sub

    trata_erro:
        MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro !!!"
        Exit Sub
    End Sub 

    sexta-feira, 26 de novembro de 2010 14:51

Todas as Respostas

  • No outlook onde essa macro vai rodar, tente adicionar outra conta, apenas para envio (configure o outlook para NAO ler as mensagens) com os dados do remetente que você quer usar no campo FROM

     

     


    João Eurico Consultor Manguetown - Brazil
    sexta-feira, 26 de novembro de 2010 17:59
  • Não existe a propriedade From no objeto MailItem.

    Troque a linha

    .From = "" & sCaixaJuridica &""

    por

    .SendUsingAccount = Application.Session.Accounts.Item(sCaixaJuridica)

    .


    http://www.ambienteoffice.com.br
    sexta-feira, 26 de novembro de 2010 21:02