Notifications
Clear all

Enviar formulário por email

4 Posts
2 Usuários
0 Reactions
594 Visualizações
(@edulogan)
Posts: 2
New Member
Topic starter
 

Amigos, boa noite.

Trabalho em uma corretora de seguros e criei um formulário de perfil segurado. Tive uma idéia de que, quando preenchido, o segurado clicasse em um button, automaticamente o formulário seria enviado por e-mail.

Por exemplo: Ele terminou de preencher, mas não quer salvar, abrir o server de e-mail, anexar o arquivo e depois enviar. Simplesmente clicanco do botão, o arquivo é salvo e abre o gerenciador e manda para a corretora.

Sei que acontece mais ou menos isso no Acrobat, quando criamos formulários por ele

É possível? :mrgreen:

Muito obrigado!

 
Postado : 18/04/2013 5:39 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Perdão mais eu não entendi!

LEia:
http://www.macoratti.net/10/11/vba_ccli.htm
http://social.msdn.microsoft.com/Forums ... be428dfd0/
Autor:Tommy

Private Sub CommandButton1_Click()
ActiveWorkbook.SaveAs "C:VBA CodeSendMailExample.xls"
ActiveWorkbook.SendMail Recipients:="johndoe@domain.com", _
Subject:="SendMailExample"
If Workbooks.Count > 1 Then
If MsgBox("Todas as alterações do arquivo serão perdidas." & _
vbNewLine & vbNewLine & "Você quer continuar?", _
vbYesNo + vbCritical) = vbYes Then
Application.DisplayAlerts = False
Application.Quit
Else
ActiveWorkbook.Close SaveChanges:=False
End If
Else
Application.DisplayAlerts = False
Application.Quit
End If
End Sub
 
Postado : 18/04/2013 6:11 pm
(@edulogan)
Posts: 2
New Member
Topic starter
 

Bom dia.

Deixa eu explicar melhor, porque ficou mesmo complicado... hehe

Eu criei um formulário, para o calculo de seguro automóvel. Quero que, quando o formulário seja preenchido, o segurado clique em um botão e a planilha seja enviada por email em formato pdf, ou então enviar simplesmente a planilha mesmo.

Queria evitar de a pessoa ter que salvar e mandar em anexo ao email.

É possível uma macro assim? Criar uma rotina para ao clique do botão gere um arquivo pdf e seja enviado por email?

Muito obrigado!

 
Postado : 21/04/2013 7:49 am
(@fernandofernandes)
Posts: 43750
Illustrious Member