Papel de carta para e-mail Outlook Express em VBA Excel

Gilson

(@gilson)

Posts: 5

Active Member

Topic starter

Olá prezados(as), não tenho conhecimento profundo em programação VBA, porém pesquisando na internet e fazendo as devidas adaptações, consegui automatizar grande parte das tarefas comerciais e administrativas de minha empresa: segmento de manutenção automotiva. Estou desenvolvendo agora a automatização de e-mails que busca dados diretamente de minhas planilhas de execução e orçamento. Consegui resolver isto, exceto por um detalhe apenas: para que o e-mail saia com o devido papel de carta que criei com a logo de minha empresa, preciso inserir ele após a abertura do e-mail antes de enviá-lo. Este papel de carta não vem de forma automática, como é quando uso diretamente enviando e-mais no Outlook Express . Utilizo o Outlook Express 6 e o Excel 2003. Como faço para que o papel de carta escolhido saia de forma automática? Alguém pode me ajudar?

Segue abaixo o código que criei e funciona para envio dos e-mails que preciso, exceto não tendo o papel de carta saído de forma automática:

Sub E_Mail_Entrega()
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

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)

End Sub

MUITO OBRIGADO !!!

Postado : 15/06/2014 7:43 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 15/06/2014 7:46 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 15/06/2014 9:03 am

Gilson

(@gilson)

Posts: 5

Active Member

Topic starter

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

Postado : 15/06/2014 3:49 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 15/06/2014 4:42 pm

Gilson

(@gilson)

Posts: 5

Active Member

Topic starter

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!

Postado : 17/06/2014 6:22 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 17/06/2014 6:26 pm

Gilson

(@gilson)

Posts: 5

Active Member

Topic starter

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...

Postado : 19/06/2014 9:35 am

Gilson

(@gilson)

Posts: 5

Active Member

Topic starter

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!

Postado : 21/06/2014 8:22 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde Gilson

Obrigado pelo retorno com a solução.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 22/06/2014 12:00 pm