ENVIANDO E-MAIL PELO OUTLOOK COM ASSINATURA


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: ENVIANDO E-MAIL PELO OUTLOOK COM ASSINATURA

Donkey

PRESIDENTE PRUDENTE
SP - BRASIL

ENUNCIADA !

Postada em 01/03/2008 10:16 hs

Estou utilizando esses comandos para chamar o outlook, acontece que quando ele abre, não tem minha assinatura no corpo da mensagem. Alguem sabe como fazer para colocar a assinatura? Obrigado.

Dim oEmail As Outlook.Application
    Dim oEmailAtach As Outlook.MailItem

    Set oEmail = Outlook.Application
    Set oEmailAtach = oEmail.CreateItem(olMailItem)

    With oEmailAtach
        .To = lblEmail.Caption
        .Subject = "Teste"
        .Attachments.Add "C:Temp     este.txt", olByValue, 1, "teste.txt"

        .BodyFormat = olFormatHTML

        .HTMLBody = "<HTML><BODY>   Mensagem OK  </BODY></HTML>"

        .Display
    End With

Fagner Takeshi
não registrado

ENUNCIADA !

Postada em 17/01/2009 13:05 hs

Ola sds,

Você tem que ler do registro do windows, uma chave "Default signature" que esta dentro da pasta signatures em HKEY_CURRENT_USERIdentities.Faça uma busca no registro que você encontra.

Att,

Fagner

Nilton Vianna

AMPARO
SP - BRASIL

ENUNCIADA !

Postada em 17/01/2009 15:55 hs

' Ja tentou este..

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Form_Load()
With Label3 '....... o label no campo
       .AutoSize = True
       .ForeColor = vbBlue
       .Font.Underline = True
       .Caption = "njnews@bol.com.br"
    End With
End Sub

Private Sub Label3_Click(Index As Integer)
Dim ret$
ret = ShellExecute(Me.hwnd, "Open", "mailto:njnews@bol.com.br", "", "", 1)
Label3.ForeColor = vbRed
End Sub

ok.

Nilton

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR