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 com parágrafos
28
    MailItem.Body = "Olá," & vbCrLf & vbCrLf & _
29
                    "Esta é uma mensagem pré-definida." & vbCrLf & _
30
                    "Aqui está o segundo parágrafo." & vbCrLf & vbCrLf & _
31
                    "Atenciosamente," & vbCrLf & _
32
                    "Seu Nome"
33
    
34
    ' Exibe a janela de novo email
35
    MailItem.Display
36
    
37
    ' Limpeza
38
    Set MailItem = Nothing
39
    Set OutlookApp = Nothing
40
End Sub