0
I have to send a report where I need to insert a table in the body of the email, but I need to send another email (MBX) of the outlook and not of my staff, I’m not getting it, I tried with . from but it still doesn’t work. I also need to enter the signature at the end of the email and I’m not getting it either. Someone can help me?
Sub Envia_Email_Tabela()
Application.DisplayAlerts = False
Sheets("Tabela").Select
Dim email_envio As Variant
email_envio = ThisWorkbook.Sheets("E-MAIL").Cells(3, 2) 'e-mail para qual será enviado
Range("A7").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
'.Item.From = ThisWorkbook.Sheets("E-MAIL").Cells(1, 9)
.Introduction = ThisWorkbook.Sheets("E-MAIL").Cells(3, 4)
.Item.To = ThisWorkbook.Sheets("E-MAIL").Cells(3, 2)
.Item.CC = ThisWorkbook.Sheets("E-MAIL").Cells(3, 3)
.Item.Subject = ThisWorkbook.Sheets("E-MAIL").Cells(3, 5) & " " & ThisWorkbook.Sheets("E-MAIL").Cells(1, 3) & " " & ThisWorkbook.Sheets("E-MAIL").Cells(3, 6) 'Assunto do e-mail
.Item.Send
End With
End Sub
Thank you very much!! It worked perfectly with the adjustments
– Nath