leandrp

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.

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