Ir ao conteúdo
  • Cadastre-se
leandrp

Vba - envelope / alternância do email de envio

Recommended Posts

Bom dia,

Criei uma rotina de envio de mail mas preciso de um código para trocar o email usado para envio das mensagens para não sobrecarregar o servidor e gerar bloqueio da conta.

 

 

Private Sub BOT_COMSULTACOM_Click()
 'Mensagem do email
        mensagem_padrão = TextBox_CAMPO_EMAIL
        'Não mostrar movimentações da tela
        Application.ScreenUpdating = False
        
        'Deixar ativa a aba 'email'
        Sheets("EMAILS").Select
        
        'Iniciar
        For i = 1 To WorksheetFunction.CountA(Sheets("EMAILS").Columns("a:a"))
        
        'Variáveis de armazenamento das informações
        nome_cliente = ""
        email_cliente = Sheets("EMAILS").Range("a" & i).Value
        saudacao_mensagem = "Olá, " & nome_cliente & Chr(10) & Chr(10)
        
        'Mostrar status da operação para o usuário
        Application.StatusBar = "Enviando email para " & email_cliente & "..."
        
        'Deixar ativa a aba 'email'
        Sheets("EMAIL_MKT").Select
        
              
        ASSUNTO = TextBox_ASSUNTO_EMAIL
       
        'MOSTRAR PLANILHA
        Application.Visible = True
        'Mostrar página de email
        ActiveWorkbook.EnvelopeVisible = True
        'Iniciar envio
        With Sheets("EMAILS").MailEnvelope
        'Endereço do cliente
        .Item.To = email_cliente
        'Assunto do email
        .Item.Subject = ASSUNTO
        'Enviar
        .Item.Send
        End With
        
        
        'Próximo Cliente
        Next i 'Limpar status de informação
        Application.StatusBar = ""
        
        'Ativar a aba enviar
        Sheets("EMAILS").Select
        
        'Mostrar movimentos da tela
        Application.ScreenUpdating = True
        'OCULTAR PLANILHA
        Application.Visible = False
        'Mensagem final
        MsgBox "Mensagens enviadas com sucesso!", vbInformation, "Ok"
        Unload Me


End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

O ideal seria disponibilizar o arquivo com alguns dados (Não precisa ser dados reais), no entanto você pode declarar uma variavel para carregar o endereço de email a ser usado e criar  um contador para que o excel troque a conta para evitar o travamento a cada X envios.

Compartilhar este post


Link para o post
Compartilhar em outros sites
20 horas atrás, CasaDoHardware disse:

O ideal seria disponibilizar o arquivo com alguns dados (Não precisa ser dados reais), no entanto você pode declarar uma variavel para carregar o endereço de email a ser usado e criar  um contador para que o excel troque a conta para evitar o travamento a cada X envios.

Olá,

 

Os dados são inseridos das textbox da Frame e planilha através dos comandos... 

ActiveWorkbook.EnvelopeVisible = True
        'Iniciar envio
        With Sheets("EMAILS").MailEnvelope
        'Endereço do cliente
        .Item.To = email_cliente
        'Assunto do email
        .Item.Subject = ASSUNTO
        'Enviar
        .Item.Send
   

Nesse código é usado o email de envio padrão do Outlook através do comando "Envelope". Eu só preciso saber o comando que troca o email para envio. 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×