ENVIAR DADOS DO FORMULÁRIO POR EMAIL

[Mistalbert]

Bom dia, sou novo nessa área, e preciso de uma ajuda para finalizar um programinha.

Trata-se de um formulário em que salvo as informações em uma planilha ao clicar no botão cadastrar, mas preciso criar outro botão em que ao clicar, envio essas informações contidas nos campos do formulário por e-mail. meu formulário contem Textbox's, a abaixo segue parte do código que tenho para envio do e-mail.. esse código funciona muito bem, mas só consigo enviar informações contida na planilha e não consigo as informações direto do formulário.

 

'Abaixo seguem algumas definicoes de variaveis para o envio de seu formulario. Por favor preencha os campos abaixo.
servidor_smtp = "smtp.gmail.com" ' Informacoes so seu servidor SMTP
senha_para_envio = "SENHA DO EMAIL" ' senha da conta de e-mail
email_origem = "EMAIL DO REMETENTE" ' e-mail que indica de onde partiu a mensagem
email_destino = "EMAIL DE DESTINO" ' e-mail que vai receber as mensagens do formulario
email_assunto = "Autorização para Abastecimento"  ' Assunto do email
email_corpo = "Teste corpo do Email..." ' Corpo do Email           Preciso que os campos do formulário sejam organizados nessa parte do corpo. 
email_porta = 465 ' porta smtp  

 

 

Conto com o apoio dos colegas.

Atenciosamente,

Marcos

[Alyson Ronnan Martins]

Boa tarde. 

Mina dúvida quando aperta no botão enviar o formulário está aberto?

Se sim batas fazer do seguinte modo:

Userf

Userform.TextBox1.value & “ “ & Userform.TextBox2.value

orm.TextBox1.value & “ “ & Userform.TextBox2.value

 

Olha se dessa forma consegue enviar. 

Boa tarde. 

Mina dúvida quando aperta no botão enviar o formulário está aberto?

Se sim batas fazer do seguinte modo:

Userf

Userform.TextBox1.value & “ “ & Userform.TextBox2.value

orm.TextBox1.value & “ “ & Userform.TextBox2.value

 

Olha se dessa forma consegue enviar. 

Boa tarde. 

Mina dúvida quando aperta no botão enviar o formulário está aberto?

Se sim batas fazer do seguinte modo:

Userf

Userform.TextBox1.value & “ “ & Userform.TextBox2.value

orm.TextBox1.value & “ “ & Userform.TextBox2.value

 

Olha se dessa forma consegue enviar. 

Editado Setembro 29, 2017 por Alyson Ronnan Martins
Código.

[Mistalbert]

Em 29/09/2017 at 15:30, Alyson Ronnan Martins disse:

Boa tarde. 

Mina dúvida quando aperta no botão enviar o formulário está aberto?

Se sim batas fazer do seguinte modo:

Userf

Userform.TextBox1.value & “ “ & Userform.TextBox2.value

orm.TextBox1.value & “ “ & Userform.TextBox2.value

 

Olha se dessa forma consegue enviar. 

Boa tarde. 

Mina dúvida quando aperta no botão enviar o formulário está aberto?

Se sim batas fazer do seguinte modo:

Userf

Userform.TextBox1.value & “ “ & Userform.TextBox2.value

orm.TextBox1.value & “ “ & Userform.TextBox2.value

 

Olha se dessa forma consegue enviar. 

Boa tarde. 

Mina dúvida quando aperta no botão enviar o formulário está aberto?

Se sim batas fazer do seguinte modo:

Userf

Userform.TextBox1.value & “ “ & Userform.TextBox2.value

orm.TextBox1.value & “ “ & Userform.TextBox2.value

 

Olha se dessa forma consegue enviar. 

 

[Mistalbert]

Alyson, Agradeço pela atenção.. e vou tentar enviar a planilha completa pra vê se você consegue me ajudar.

https://drive.google.com/file/d/0B7SNHOEMNwWPell2LXA2QnRRakE/view?usp=sharing

Conto com sua gentileza, para checar a seguinte intenção.

esse formulário ao preencher e clicar no botão cadastro ele cadastra na planilha as informações essa parte esta funcionando.

o que preciso?

 

Ao clicar no botão cadastrar, as informações do formulário dever ser cadastradas na planilha, enviada para os dentinários que aparecem na Textbox10 e limpe o formulário para um novo cadastro .. o comando de limpar estava funcionando até eu fazer código para para buscar os emails, baseados na combobox2. começou a depurar.

Agradeço desde já a sua ajuda... acho que com o formulário fica mais claro.. o que estou tentando realizar, já que não tenho conhecimento.

 

Atenciosamente