none
e-mail automatico pelo excel RRS feed

  • Pergunta

  • caro Ivair,

    Este codigo abaixo já testei e funciona 100%, mas minha pergunta é como faço para cada 20 mensagens eu trocar de endereço do remetente:

    Exemplo:

    email_1@bol.com.br ==> até 20 mensagens

    email_2@bol.com.br ==> 21 até 40 mensagens

    e assim por diante...

    preciso muito disso e não tenho a mínima ideia como fazer isso.

    fico no aguardo,

    Jorge Paulo

    Private Sub Worksheet_Change(ByVal Target As Range)
        Dim OutApp As Object
        Dim OutMail As Object
        Dim texto As String

        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)

        linha = ActiveCell.Row - 1
        If Target.Address = "$F$" & linha Then

            If Plan1.Cells(linha, 6) = "Concluído" Then
                texto = Plan1.Cells(linha, 1) & "  -  " & Plan1.Cells(linha, 2) & "  -  " _
                        & Plan1.Cells(linha, 3) & "  -  " & Plan1.Cells(linha, 4) & "  -  " _
                        & Plan1.Cells(linha, 5) & "  -  " & Plan1.Cells(linha, 6)
            End If

            With OutMail
                .To = Plan1.Cells(linha, 1)
                .cc = ""
                .BCC = ""
                .Subject = "Título do email"
                .HTMLBody = texto
                .Display   'Utilize Send para enviar o email sem abrir o Outlook
            End With
            On Error GoTo 0

            Set OutMail = Nothing
            Set OutApp = Nothing
        End If
    End Sub

    terça-feira, 10 de dezembro de 2013 21:53

Respostas

  • Ao inserir um código no fórum, utilize blocos de código. Para utilizar essa ferramenta, clique no botão cuja legenda é “Inserir bloco de código” na barra do editor de mensagens do fórum. Uma janela aparecerá onde você deverá colar seu código cru na caixa de texto à esquerda. Então, selecione a opção Vb.Net na caixa de combinação que você verá em cima à esquerda e depois clique no botão Inserir.

    ---

    Veja o link a seguir: http://www.rondebruin.nl/win/s1/outlook/account.htm

    Você ter todos seus e-mails (que aposto que são de e-mail "marketing") configurados no Outlook.

    Use o primeiro código para descobrir quais são as contas de cada índice da coleção Accounts. Depois, adicione um Select Case no laço de linhas, exemplo:

                Select Case linha
                  Case 1 To 20: lngAccount = 1
                  Case 21 To 40: lngAccount = 2
                  Case 41 To 60: lngAccount = 3
                  '...e assim por diante
                End Select
                .SendUsingAccount = OutApp.Session.Accounts.Item(lngAccount)
                .Display   'Utilize Send para enviar o email sem abrir o Outlook
    


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quarta-feira, 11 de dezembro de 2013 21:22
    Moderador