Vba - envelope / alternância do email de envio

[leandrp]

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

[CasaDoHardware]

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.

[leandrp]

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.