none
MAPIFolder - Pegar o From (remetente) RRS feed

  • Pergunta

  • Pessoal,

    Eu estou fazendo em vba para disparar email...

    Eu gostaria de pegar o remetente (From)... Alguém tem uma idéia como faz isso?

    Tenho procurando no google, mas não fala sobre o From e sim To...

    Será que alguém pode me ajudar..

    Obrigada


    Rita de Cássia
    segunda-feira, 23 de maio de 2011 17:18

Respostas

  • Sub LerRemetente()
      
      Dim oMail As Outlook.MailItem
      Dim oInspector As Outlook.Inspector
      Dim oNameSpace As Outlook.NameSpace
        
      'Verifica se há algum e-mail aberto para leitura
      Set oInspector = Application.ActiveInspector
      On Error Resume Next
      Set oMail = oInspector.CurrentItem
      If TypeName(oMail) <> "MailItem" Then
        MsgBox "Execute esta macro somente quando houver um e-mail aberto."
        Exit Sub
      End If
      
      Set oNameSpace = Application.GetNamespace("MAPI")
      
      MsgBox "O endereço de e-mail do remetente da mensagem aberta é: '" & oMail.Sender.Address & _
       "'. O nome, na agenda do Outlook é '" & oMail.Sender.Name & "'."
    
    End Sub

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br
    segunda-feira, 23 de maio de 2011 19:08
    Moderador

Todas as Respostas

  • Ninguem?

    Ja mandei vários posts e ninguem me responde... nunca me responderam nesse forum....

     


    Rita de Cássia
    segunda-feira, 23 de maio de 2011 17:52
  • Sub LerRemetente()
      
      Dim oMail As Outlook.MailItem
      Dim oInspector As Outlook.Inspector
      Dim oNameSpace As Outlook.NameSpace
        
      'Verifica se há algum e-mail aberto para leitura
      Set oInspector = Application.ActiveInspector
      On Error Resume Next
      Set oMail = oInspector.CurrentItem
      If TypeName(oMail) <> "MailItem" Then
        MsgBox "Execute esta macro somente quando houver um e-mail aberto."
        Exit Sub
      End If
      
      Set oNameSpace = Application.GetNamespace("MAPI")
      
      MsgBox "O endereço de e-mail do remetente da mensagem aberta é: '" & oMail.Sender.Address & _
       "'. O nome, na agenda do Outlook é '" & oMail.Sender.Name & "'."
    
    End Sub

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br
    segunda-feira, 23 de maio de 2011 19:08
    Moderador