Olá, estou tentando fazer uma aplicação para o meu trabalho em VBA, porém estou tendo dificuldade em mandar somente algumas células no corpo de um email diretamente via outlook.
Private Sub CommandButton1_Click()
Dim v1 As String
Dim data As Date
Dim v2 As String
Dim outmail As Object
Dim texto As String
Dim outapp As Object
Dim intervalo As Range
v1 = TextBox1.Value
data = TextBox2.Value
v2 = TextBox3.Value
Sheets("Demandas").Select
Range("A2") = data
Range("B2") = v2
Range("C2") = v1
Sheets("Demandas").Select
Set intervalo = Range("A2:C2").Select
Set outapp = CreateObject("Outlook.Application")
Set outmail = outapp.createitem(0)
With outmail
.display
.to = "[email protected]"
.cc = ""
.bcc = ""
.Subject = "Solicitação de nova demanda"
.body = intervalo
End With
MsgBox ("Sua solicitação foi concluida")
UserForm1.Hide
End Sub
Na linha:Set intervalo = Range("A2:C2").Select
a aplicação sempre dá um erro dizendo que o objeto é obrigatório. Tentei fazer como uma string tambem com a variável texto para anexar as células que eu quero mas deu erro também.
Gostaria de saber se alguem poderia esclarecer isto pra mim, pois estou necessitando muito dessa aplicação.
Obrigado.