Epirus

Bem-Vindo, Visitante
Username: Password: Lembrar-me

TÓPICO: Preencher o Campo "De" por meio de vba

Preencher o Campo "De" por meio de vba 6 anos 6 mêses ago #26

  • GTTJ
  • GTTJ's Avatar
  • OFFLINE
  • Fresh Boarder
  • Postagens: 2
  • Karma: 0
Prezados,

boa tarde,

Como faço para preencher o Campo "De" do Outloock por meio de vba?

Obs.: A Versão do Outloock é 2003.

Desde já agradeço a atenção,
O administrador desabilitou o acesso público de escrita.

Re: Preencher o Campo "De" por meio de vba 6 anos 6 mêses ago #27

  • Robert Martim
  • Robert Martim's Avatar
  • OFFLINE
  • Administrator
  • Postagens: 274
  • Thank you received: 23
  • Karma: 4
GTTJ,

Voce poda fazer como segue:

Dim objOutlook                  As Outlook.Application
    Dim objOutlookMailItem          As Outlook.MailItem
    Dim objOutlookNS                As Outlook.Namespace

    Set objOutlook = GetObject(, "Outlook.Application")
    If objOutlook Is Nothing Then Set objOutlook = New Outlook.Application

    Set objOutlookNS = objOutlook.GetNamespace("MAPI")

objOutlookMailItem.SendUsingAccount = objOutlookNS.Accounts("Nome Da Conta")
O administrador desabilitou o acesso público de escrita.

Re: Preencher o Campo "De" por meio de vba 6 anos 6 mêses ago #28

  • GTTJ
  • GTTJ's Avatar
  • OFFLINE
  • Fresh Boarder
  • Postagens: 2
  • Karma: 0
Robert Martin,

Boa tarde,

Testarei este código na segunda-feira. Se funcionar lhe respondo.

Obrigado pela atenção!
O administrador desabilitou o acesso público de escrita.
Time to create page: 0.177 seconds