locked
formata o valor "Introduction"(ActiveSheet.MailEnvelope) RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Ninguem??
    quinta-feira, 24 de junho de 2010 18:10
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Olá Emerson você poderia colocar a sua programação completa aqui? porque a sua pergunta está muito vaga,

     

    Abraços,

     

    Baldini

    Baldini Fabio
    segunda-feira, 28 de junho de 2010 21:44
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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 Sub

    terça-feira, 29 de junho de 2010 12:52
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Ninguem pode me ajudar?Dar uma dica..um help?mostrar o caminho???

    Vlw Master's

    sexta-feira, 2 de julho de 2010 13:27
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Ok. Obrigado Baldini. Toda e qualquer tipo de ajuda é bem vinda! :)

     

    segunda-feira, 5 de julho de 2010 19:46
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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 = Nothing

    Abraç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
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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 = Nothing

    Abraç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
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Bom, você já tentou

    .Subject = Range("D10")

    ?

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br
    terça-feira, 25 de janeiro de 2011 21:17