gr
public
May 24, 2024
Never
51
1 Sub AbrirEmailOutlook() 2 Dim OutlookApp As Object 3 Dim MailItem As Object 4 5 ' Verifica se o Outlook já está aberto 6 On Error Resume Next 7 Set OutlookApp = GetObject(Class:="Outlook.Application") 8 On Error GoTo 0 9 10 ' Se o Outlook não estiver aberto, abre-o 11 If OutlookApp Is Nothing Then 12 Set OutlookApp = CreateObject(Class:="Outlook.Application") 13 End If 14 15 ' Cria um novo item de email 16 Set MailItem = OutlookApp.CreateItem(0) ' 0 indica um item de email 17 18 ' Define o assunto do email 19 MailItem.Subject = "Assunto Pré-Definido" 20 21 ' Define os destinatários no campo "Para" 22 MailItem.To = "[email protected]; [email protected]" 23 24 ' Define os destinatários no campo "Cópia" 25 MailItem.CC = "[email protected]; [email protected]" 26 27 ' Define o corpo do email 28 MailItem.Body = "Olá,\n\nEsta é uma mensagem pré-definida.\n\nAtenciosamente,\nSeu Nome" 29 30 ' Exibe a janela de novo email 31 MailItem.Display 32 33 ' Limpeza 34 Set MailItem = Nothing 35 Set OutlookApp = Nothing 36 End Sub