VBA - TIRAR PRINT SCREEN DA TELA E ABRIR E-MAIL

FCVELHO 24/10/2013 08:38:19
#430350

Cara, eu preciso mais ou menos assim:


Set Corpo = Nothing
On Error Resume Next

Corpo = [Ô] Prancha: [Ô] & TextBox1 & [Ô] - [Ô] & vbNewLine [ô]Pula linha
Corpo = Corpo & [Ô] Data: [Ô] & TextBox2 & vcNewLine [ô]Pula linha
Corpo = Corpo & [Ô]Horario: [Ô] & TextBox3

Set OutApp = CreateObject([Ô]Outlook.Application[Ô])
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = [Ô]Email do destinatário[Ô]
.cc = [Ô]Email CC[Ô]
.BCC = [Ô][Ô]
.Subject = [Ô]TÍTULO DA MENSAGEM[Ô]
.HTMLBody = Corpo
.Send [ô]or use .Display