G

dudh

public
Guest May 24, 2024 Never 14
Clone
Plaintext paste1.txt 40 lines (31 loc) | 1.31 KB
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
23
24
' Define os destinatários no campo "Cópia"
25
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