Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Envio de E-mail - U...
 
Notifications
Clear all

Envio de E-mail - UserForm

 
2024 - VBA & Macros
Post Recente por freitasag 9 anos atrás
5 Posts
2 Usuários
0 Reactions
973 Visualizações
RSS
 freitasag
(@freitasag)
Posts: 0
New Member
Topic starter
 

Boa tarde Prezados,
Estou usando a rotina abaixo para envio do meu conteúdo por e-mail,através do Outlook,porém,só consigo deixar 01 e-mail padrão para envio,
alguém pode me ajudar,para que eu consiga parametrizar e deixar mais e-mails como padrão no momento do envio.

Obrigado

Sub enviar_corpo_email()
' Seleciona o intervalo de células a serem enviadas por email.
ActiveSheet.Range("c5:m28").Select
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
.Introduction = ""
.Item.To = "[email protected]" 'ActiveSheet.Range("email").Select
.Item.Subject = "Notificação de Ocorrência"
.Item.Send
End With

ActiveCell.Activate
MsgBox "Sua mensagem foi enviada com sucesso!!"
Application.ScreenUpdating = True

End Sub

 
Postado : 27/10/2015 11:41 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Já tentou digitar seu destinatario no text box ?

.To = TextBox1.Value

Att

 
Postado : 27/10/2015 1:04 pm
 freitasag
(@freitasag)
Posts: 0
New Member
Topic starter
 

Boa tarde Alexandre,
poderia por favor redigitar a rotina,me dizendo onde colocaria essa opção e como inseria os e-mails? (Ex. "" ou ;)

Alexandre

 
Postado : 27/10/2015 1:32 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Essa forma garante (não testado!!) que qualquer destinatário que digitar no textbox será enviado.

Sub enviar_corpo_email()
' Seleciona o intervalo de células a serem enviadas por email.
ActiveSheet.Range("c5:m28").Select
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
.Introduction = ""
.Item.To = TextBox1.Value 'oiii eu estou aquiiiii
.Item.Subject = "Notificação de Ocorrência"
.Item.Send
End With

ActiveCell.Activate
MsgBox "Sua mensagem foi enviada com sucesso!!"
Application.ScreenUpdating = True

End Sub

Att

 
Postado : 27/10/2015 1:42 pm
 freitasag
(@freitasag)
Posts: 0
New Member
Topic starter
 

Bom dia Alexandre,
iria ficar assim?
se sim não deu certo a rotina.

:cry: :cry:

Sub enviar_corpo_email()
' Seleciona o intervalo de células a serem enviadas por email.
ActiveSheet.Range("c5:m19").Select
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
.Introduction = ""
.Item.To = TextBox1.Value "[email protected]""[email protected]"
.Item.Subject = "Notificação de Ocorrência"
.Item.Send
End With

ActiveCell.Activate
MsgBox "Sua mensagem foi enviada com sucesso!!"
Application.ScreenUpdating = True

End Sub

 
Postado : 28/10/2015 5:45 am
Forum Jump:
  Tópico Anterior
Próximo Tópico