COPIANDO E COLANDO INTERVALO POR EMAIL

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

COPIANDO E COLANDO INTERVALO POR EMAIL

Mensagempor edsonruaro » Qui Mar 26, 2020 6:22 pm

Oi pessoal boa tarde,

estou apanhando muito para colar um intervalor que copiei numa seleção, detalhe quero colar para encaminhar no email usando assinatura.
o intervalo que quero copiar é da M2:R3.
No email o texto do intervalo que estou copiando ficaria abaixo da linha
.HTMLBody = "Prezado " & Range("J3") & "<BR><BR>" & "Por favor informar a comissão adicional do cliente abaixo:" & "<BR>" & .HTMLBody


Public Sub assinatura()
'On Error GoTo TRATAR_ERRO


Dim oOutlook As Outlook.Application
Dim oMail As Outlook.MailItem
Dim intervalo As Range


' Set intervalo = Planilha2.Range("M2:R3")
' intervalo.Copy



Set oOutlook = New Outlook.Application
Set oMail = oOutlook.CreateItem(olMailItem)


With oMail
.Display
.To = Planilha2.Range("L3")
.CC = ""
.BCC = ""
.Display
.Subject = "Comissão Adicional BRNova - Cliente " & Planilha2.Range("N3").Text
'.Attachments.Add Environ$("temp") & "/comissao_adicional.jpg", 1, 1
.HTMLBody = "Prezado " & Range("J3") & "<BR><BR>" & "Por favor informar a comissão adicional do cliente abaixo:" & "<BR>" & .HTMLBody

'"<img src='cid.comissao_adicional.jpg'>" & "<BR><BR>" & .HTMLBody



End With

Set oMail = Nothing
Set oOutlook = Nothing
Set comissao_adicional = Nothing
Set intervalo = Nothing


On Error GoTo 0
'Exit Sub

'TRATAR_ERRO


End Sub
edsonruaro
Membro
Membro
 
Mensagens: 30
Registrado em: Qua Mai 14, 2014 6:54 pm
Has thanked: 11 times
Have thanks: 0 time

{ SO_SELECT }

Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google [Bot], Google Feedfetcher, MSN [Bot] e 5 visitantes