Bom dia!!

Olá seja bem vindo (a), Gilson!!!

Por favor Leia os links abaixo, obrigado!!!

Nossas Regras
viewtopic.php?f=7&t=203
Marcar Tópico como Resolvido e Agradecimento
viewtopic.php?f=7&t=3784
Lembre se de usar nossa base de dados (Pesquisa) e a Biblioteca
Como Anexar Aquivos Compactados
viewtopic.php?f=7&t=3841
Abrir Novo Tópico
viewtopic.php?f=7&t=5317
Onde Devo Postar Minha Dúvida e mais...
viewtopic.php?f=7&t=7903
Att

Bom dia Gilson

Movi teu tópico para a sala VBA & Macros, pois você postou tua dúvida no local errado, este local é exclusivo para a apresentação dos novos usuários do fórum.

Por enquanto vou deixar mostrando nos 2 locais para você se localizar.

[]s

Patropi - Moderador

Ok Patropi, muito obrigado e desculpe por meu erro! Grande abração...

Boa noite!!

Eu nunca usei outolook, por isso eu não tenho como testar.

Quando você papel carta, eu não compreendo sua dúvida.

Veja se aqui tem algo que te ajuda...
http://www.rondebruin.nl/win/s1/outlook/mail.htm
http://chandoo.org/wp/2012/04/23/send-m ... d-outlook/
http://www.slipstick.com/outlook/contac ... ocomplete/
http://www.howto-outlook.com/howto/senddocasmail.htm

Att

Caro Alexandrevba, obrigado por sua atenção! Vou verificar estes links, porém creio que a maioria deles se aplica ao Microsoft Outlook e meu caso complica pois uso o Outlook Express do Internet Explorer e não do pacote Office do Windows! Sobre papel de carta, me refiro ao background do e-mail ou fundo personalizado, ok! Neste fundo insiro a logomarca de minha empresa!

Boa noite!!

Na descrição do 1 link está disposto:
SendMail method examples for Outlook, Outlook Express, Windows Mail and Windows Live Mail and maybe other mail programs

Att

Alexandre, cliquei aqui no primeiro link e não encontrei isto! Porém, de memória, me lembro de ter encontrado isto já! Todavia não se fala nada lá sobre o OE, apenas sobre Outlook! Grato...

RESOLVIDO >>> Olá pessoal, consegui resolver meu problema! Utilizei o método Application.SendKeys para isto. Veja abaixo como ficou o código:

Sub E_Mail_Teste()
Dim Recipient As String, Subj As String, HLink As String
Dim Recipientcc As String, Recipientbcc As String
Dim msg As String
Dim Arq As String
Dim Pasta As String

Arq = [K12].Value
Pasta = [C22].Value

Recipient = ""
Recipientcc = ""
Recipientbcc = ""
Subj = [X4].Value
msg = [X6].Value & vbNewLine & vbNewLine & [X8].Value & vbNewLine & vbNewLine & "Atenciosamente" & vbNewLine & vbNewLine & "Gilson Del Lama" & vbNewLine & "HELP CAR DEL LAMA CENTRO AUTOMOTIVO" & vbNewLine & "Rua Henrique Dumont, 261-Jd.Mosteiro" & vbNewLine & "Ribeirão Preto/ SP" & vbNewLine & "Fone : (16) 3967-1767 ou 3627-1522" & vbNewLine & "ID: 12155*1&" & vbNewLine & "Cel: (16) 9.9223-5435" & vbNewLine

msg = WorksheetFunction.Substitute(msg, vbNewLine, "%0D%0A")
HLink = "mailto:" & Recipient & "?" & "cc=" & Recipientcc _
& "&" & "bcc=" & Recipientbcc & "&"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & msg
ThisWorkbook.FollowHyperlink (HLink)

With Application
.Wait (Now + TimeValue("0:00:01"))
.SendKeys "%oi1", Wait = True ' AQUI INSIRO O PAPEL DE CARTA ESCOLHIDO pelas teclas ALT+o+i+1
.SendKeys "%i", Wait = True
.SendKeys "~", Wait = True
.SendKeys "C:Documents and SettingsXPMUserMeus documentosHELP CARORÇAMENTOS" & Pasta & "" & Arq & ".xls", Wait = True ' AQUI ANEXO O ARQUIVO A ENVIAR pelo caminho que deve seguir!
.SendKeys "~", Wait = True
End With

End Sub

MUITO OBRIGADO PELA ATENÇÃO! Espero ter podido colaborar com o Forum com esta dúvida!

Boa tarde Gilson

Obrigado pelo retorno com a solução.

[]s