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