Usuário com melhor resposta
formata o valor "Introduction"(ActiveSheet.MailEnvelope)

Pergunta
-
Boa tarde,
Alguem sabe dizer como se formata o texto que vai em "Introduction" em ActiveSheet.MailEnvelope??
Vlw!
terça-feira, 1 de junho de 2010 20:48
Respostas
-
Como a galera aqui esta muito acanhada.
A única forma q encontrei foi desenvolver um sistema a parte que faça essa formatação(está em fase final). Não acredito q seja a forma ideal para resolver o problema, uma vez que as ferramentas do Office são integradas.
De qualquer forma se alguem tiver uma solução mais simples, os usuários agradecem. ; )
Se alguem precisar eu envio o programinha que fiz em c#(está quebrando um galho).
Abraço!
- Marcado como Resposta Emerson Viana quinta-feira, 8 de julho de 2010 14:59
quinta-feira, 8 de julho de 2010 14:59
Todas as Respostas
-
Ninguem??quinta-feira, 24 de junho de 2010 18:10
-
Olá Emerson você poderia colocar a sua programação completa aqui? porque a sua pergunta está muito vaga,
Abraços,
Baldini
Baldini Fabiosegunda-feira, 28 de junho de 2010 21:44 -
Bom dia... Vou tentar explicar melhor...
Tenho uma planilha com algumas informações q quero enviar por e-mail...
O código abaixo esta fazendo isso perfeitamente. O problema é quando eu tento adicionar um texto formatado no corpo do E-mail ou na ".Introduction" ele fica desconfigurado, tentei utilizar o .Item.HTMLBody = "<html><body> Teste MSG corpo do email </body></html>"
mas sem sucesso.Obrigado pelo Help!
Segue abaixo o codigo da Macro.
Sub Envio_Email()
Sheets("4- PROGRAMAÇÃO").Activate
ActiveSheet.Range("E15:M35").Select
ActiveWorkbook.EnvelopeVisible = True
' Sheets("1- CAMPANHA").Activate
With ActiveSheet.MailEnvelope
.Introduction = "Material para veiculação da campanha" 'texto q deve sair formatado
.Item.To = "..."
.Item.Subject = "Teste e-mail excel5"
.Item.HTMLBody = "<html><body> Teste MSG corpo do email </body></html>"
.Item.Send
End With
End Subterça-feira, 29 de junho de 2010 12:52 -
Ninguem pode me ajudar?Dar uma dica..um help?mostrar o caminho???
Vlw Master's
sexta-feira, 2 de julho de 2010 13:27 -
Olá Emerson estou analisando e mais a noite eu posto aqui a resposta,
Abraços,
Baldini Fabio- Sugerido como Resposta Baldini terça-feira, 6 de julho de 2010 04:28
sexta-feira, 2 de julho de 2010 21:56 -
Ok. Obrigado Baldini. Toda e qualquer tipo de ajuda é bem vinda! :)
segunda-feira, 5 de julho de 2010 19:46 -
Emerson tente utilizar esse código abaixo com o Htmlbody
Dim myOutlook As Object
Dim myMailItem As Object
Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.CreateItem(olMailItem)
'fName = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
With otlNewMail
.To = "JohnDoe@anywhere.com; JaneDoe@anyplace.com"
.CC = "MarySmith@anywho.com"
.Subject = "Email from me"
.HTMLBody = "Attached is today's Report." & Chr(13) & "Regards," & Chr(13) & "Ben" & Chr(13) & Chr(13)
'.Attachments.Add fName
.Display
'.Send
End With
Set otlNewMail = Nothing
Set otlApp = Nothing
Set otlAttach = Nothing
Set otlMess = Nothing
Set otlNSpace = NothingAbraços
Baldini Fabio- Sugerido como Resposta Baldini terça-feira, 6 de julho de 2010 04:28
terça-feira, 6 de julho de 2010 04:28 -
Bom dia Baldini,
Com o código acima aparece o corpo do e-mail, mais tira a outra funcionalidade(a principal) que é de abrir a planilha para que o usuário selecione algumas células que complementarão o corpo do E-mail.
Ateramos de With ActiveSheet.MailEnvelope para With otlNewMail
Complicado neh?!
Tentei utilizar os dois mais sem sucesso...
Alguma outra dica?
Obrigado pela ajuda!
Abraço!
terça-feira, 6 de julho de 2010 14:02 -
Como a galera aqui esta muito acanhada.
A única forma q encontrei foi desenvolver um sistema a parte que faça essa formatação(está em fase final). Não acredito q seja a forma ideal para resolver o problema, uma vez que as ferramentas do Office são integradas.
De qualquer forma se alguem tiver uma solução mais simples, os usuários agradecem. ; )
Se alguem precisar eu envio o programinha que fiz em c#(está quebrando um galho).
Abraço!
- Marcado como Resposta Emerson Viana quinta-feira, 8 de julho de 2010 14:59
quinta-feira, 8 de julho de 2010 14:59 -
Emerson tente utilizar esse código abaixo com o Htmlbody
Dim myOutlook As Object
Dim myMailItem As Object
Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.CreateItem(olMailItem)
'fName = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
With otlNewMail
.To = "JohnDoe@anywhere.com; JaneDoe@anyplace.com"
.CC = "MarySmith@anywho.com"
.Subject = "Email from me"
.HTMLBody = "Attached is today's Report." & Chr(13) & "Regards," & Chr(13) & "Ben" & Chr(13) & Chr(13)
'.Attachments.Add fName
.Display
'.Send
End With
Set otlNewMail = Nothing
Set otlApp = Nothing
Set otlAttach = Nothing
Set otlMess = Nothing
Set otlNSpace = NothingAbraços
Baldini Fabio
Baldino,preciso da sua ajuda, e de todos que puderem cooperar.
Estou usando o código abaixo para envio de uma planilha, porém eu gostaria que o campo ".Item.Subject =" exibisse otexto digitado dentro da célula D10.
Isso é possível?
Fico no aguardo.
Abs,
Fernando
- Editado Nando_Rodrigues terça-feira, 25 de janeiro de 2011 20:04 Erro de digitação.
terça-feira, 25 de janeiro de 2011 20:03 -
Bom, você já tentou
.Subject = Range("D10")
?
Felipe Costa Gualberto - http://www.ambienteoffice.com.brterça-feira, 25 de janeiro de 2011 21:17