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