ENVIAR EMAIL COM OUTLOOK 2010

FUTURAA 06/06/2017 15:09:01
#474342

[ô] Verifica se o Outlook está instalado
Public Function OutlookInstalado() As Boolean
On Error Resume Next
OutlookInstalado = (Not CreateObject([Ô]Outlook.Application[Ô]) Is Nothing)
End Function

Private Sub cmdEmail_Click()
Dim sMsg As String
Dim oEmail As Outlook.MailItem

[ô] Verifica se o Outlook está instalado
If OutlookInstalado = False Then
MsgBox [Ô]O Outlook não está instalado! Por favor instale-o para que você possa utilizar este recurso de email.[Ô], vbInformation, gsSistema
Exit Sub
End If

sMsg = sMsg & [Ô]<p>Olá ([Ô] & sNome & [Ô]),<br />[Ô]

Set oEmail = Outlook.CreateItem(olMailItem)


[ô]oEmail.Attachments.Add [Ô]sCaminho do arquivo[Ô] [ô] Para anexar arquivos
[ô]oEmail.BCC = [Ô]copia@gmail.com[Ô] [ô] E-mail do destinatario com cópia oculta

oEmail.To = [Ô]teste@gmail.com[Ô] [ô] E-mail do destinatario
oEmail.Subject = [Ô]Assunto[Ô] [ô] Título da mensagem
oEmail.HTMLBody = sMsg [ô] Mensagem
oEmail.Display [ô] Mostra a janela de envio do outlook

[ô] Outras duas opções
[ô]Email.Send [ô] Envia a mensagem

[ô] Este aqui abre o Outlook mas não permite enviar mensagem no formato HTML
[ô]ShellExecute Me.hWnd, [Ô]Open[Ô], [Ô]mailto:[Ô] & sEmail & _
[Ô]?subject=[Ô] & sAssunto & _
[Ô]&body=[Ô] & sMsg, _
vbNullString, vbNullString, vbNormalFocus

End Sub