none
Uso do While RRS feed

  • Pergunta

  • Pessoal,

    Eu nao manjo nada vba...

    Eu estou montando uma macro para email... E tenho uma planilha excel e tem o campo email e gostaria de pegar esse email e exibir no campo To para cada um... E tenho q fazer uma logica para nao pegar repetido...

    Pelo jeito e usar o while.. mas nao sei como fica...

    Wx: 

    Verifica se existe e depois exibe o nome usando o loop...

     

    Fico no aguardo.

    Obrigada


    Rita de Cássia
    sexta-feira, 20 de maio de 2011 22:43

Respostas

  • O exemplo abaixo exige que você tenha o Outlook instalado no seu computador com uma conta configurada para enviar e-mails.

    Suponha:

    Célula A1: Nome (então, de A2:Axxx tem os nomes dos contatos)

    Célula B1: Email (então, de B2:Bxxx tem os endereços de e-mail dos respectivos contatos)

    Use a rotina em VBA (se não sabe criar um módulo ou uma rotina, confira aqui: http://www.ambienteoffice.com.br/officevba/modulos_em_vba/):

    Private Sub EnviarEmail()
      
      Dim appOutlook As Object
      Dim olNS As Object
      Dim olItem As Object
       
      Dim r As Long, rLast As Long
       
      'Criar Aplicação de Outlook
      On Error Resume Next
      Set appOutlook = GetObject(, "Outlook.Application")
      If appOutlook Is Nothing Then
        Set appOutlook = CreateObject("Outlook.Application")
      End If
      On Error GoTo 0
      
      'Atribuir NameSpace
      Set olNS = appOutlook.GetNamespace("MAPI")
    
      With ActiveSheet
        rLast = .Cells(.Rows.Count, "B").End(xlUp).Row
        For r = 2 To rLast
          Set olItem = appOutlook.CreateItem(0)
          olItem.to = .Cells(r, "B")
          olItem.Subject = "E-mail para " & .Cells(r, "A")
          olItem.Body = "Essa aqui é " & _
               "o seu texto de copo. " & _
               "Você pode alterá-lo, se quiser."
          olItem.Display 'ou olItem.Send, se quiser enviar o e-mail de uma vez, sem mostrá-lo na tela.
        Next r
      End With
    
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br
    quarta-feira, 25 de maio de 2011 13:53
    Moderador