Dúvida VBA - Criando e disparando e-mails.

Question

Pessoas !

Sou iniciante em desenvolvimento VBA e consegui esse código vagando pela internet e até o momento está me servindo muito bem.

Bom, vamos ao problema...

Eu uso esse código em uma planilha do meu trabalho, onde dentro do outlook nós possuimos caixas corporativas. Eu gostaria que na hora de criar o novo e-mail, o código alterasse o "DE:" para o e-mail da caixa corporativa que meu setor usa ao invés de ser disparado por mim.

Segue código abaixo.

Private Sub CommandButton1_Click()

Dim EnviarPara As String

    Dim Assunto As String

    Dim CorpoEmail As String

    For i = 3 To 500

                EnviarPara = ThisWorkbook.Sheets(2).Cells(i, 1)

                Assunto = ThisWorkbook.Sheets(2).Cells(i, 7)

                CorpoEmail = ThisWorkbook.Sheets(2).Cells(i, 15)

        If EnviarPara <> "" Then

        Envia_Emails EnviarPara, Assunto, CorpoEmail

        End If

    Next i

End Sub

Sub Envia_Emails(EnviarPara As String, Assunto As String, CorpoEmail As String)

    Dim OutlookApp As Object

    Dim OutlookMail As Object

    Set OutlookApp = CreateObject("Outlook.Application")

    Set OutlookMail = OutlookApp.CreateItem(0)

    With OutlookMail

        .To = EnviarPara

        .CC = ""

        .BCC = ""

        .Subject = Assunto

        .Body = CorpoEmail

        .Display

    End With

    Set OutlookMail = Nothing

    Set OutlookApp = Nothing

End Sub

Answer 1

Olá Filipe, tudo bem?

Seja bem-vindo à Comunidade da Microsoft.

Filipe, neste caso, como a sua questão tem relação com VBA, sugiro que crie uma pergunta em nosso fórum do MSDN voltado para este cenário, para isso acesse o link abaixo:

https://social.msdn.microsoft.com/Forums/pt-BR/...

Se a resposta ajudou de alguma forma, por favor, marque como resposta, caso a sua dúvida não tenha sido solucionada, por favor, poste novamente.

Espero ter ajudado, até mais!

Answer 2

Olá,

Seja bem vind@ à Comunidade Microsoft.

Meu nome é Miguel, sou consultor independente e estou aqui para ajudar. 

Deverá colocar dentro "with" algo semelhante a:

.SentOnBehalfOfName = "******@domain.com"

Recomendo que veja o link abaixo, julgo que tem informação útil (em inglês):

https://www.slipstick.com/developer/code-sample...

NOTA: Este é um website não Microsoft. Esta página, aparentemente, fornece informação precisa e segura. Alertamos para a eventual publicidade no site, que pode estar a promover produtos que frequentemente são classificados como PUP (Potentially Unwanted Products / Produtos Potencialmente Não Pretendidos). Investigue qualquer produto publicitado no site antes de decidir fazer o download/baixar e instalar.

Alguma dúvida que tenha, estou à disposição.

Att.

Miguel