Ir ao conteúdo

Posts recomendados

Postado

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.

 

Postado

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


 

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!