Macro para Responder ou Encaminhar Email

[Lucas dos Santos Pereira]

Ola bom dia,

 

Preciso de uma macro para responder ou encaminhar email pelo Outlook. Preciso que quando um email especifico estiver aberto a macro clicar em responder ou encaminhar no outlook. Alguem poderia me ajudar. Aguardo retorno.

[Midori]

Se for o Microsoft Outlook, você pode tentar ativar essa referência no editor de macros em Ferramentas > Referências. Feito isso você poderá programar com os objetos do MS Outlook.

 

[Lucas dos Santos Pereira]

Precisaria criar uma macro via excel, ja tenho a macro para criar um novo email, mas para responder, responder a todos ou encaminhar ainda não tenho. 

[Lucas dos Santos Pereira]

Ola,

 

Ja tenho o Script de Novo Email para envio conforme abaixo. Somente preciso que mude para responder ou encaminhar.

 

Sub Envia_Email()
    Dim EnviarPara As String
    Dim Mensagem As String
    For i = 1 To 1
        EnviarPara = ThisWorkbook.Sheets(1).Cells(i, 1)
        If EnviarPara <> "" Then
            Mensagem = ThisWorkbook.Sheets(1).Cells(i, 3)
            Envia_Emails EnviarPara, Mensagem
        End If
    Next i
End Sub
Sub Envia_Emails(EnviarPara As String, Mensagem As String)
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)
    With OutlookMail
        .To = Range("A5")
        .cc = Range("A54")
        .BCC = ""
        .Subject = "Assunto"
        .HTMLBody = "Corpo do Email"
        .Display ' para envia o email diretamente defina o código  .Send
    End With
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub