Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Enviar Email person...
 
Notifications
Clear all

Enviar Email personalizado atraves do form

 
2024 - VBA & Macros
Post Recente por afbergman 9 anos atrás
5 Posts
3 Usuários
0 Reactions
1,087 Visualizações
RSS
 afbergman
(@afbergman)
Posts: 108
Estimable Member
Topic starter
 

Prezados,

Mais uma vez preciso da ajuda de vcs. Tenho um form que eu criei no qual efetuo cadastros. Ao final desse cadastro gero um codigo para cada um deles.
Gostaria que qndo essa rotina terminasse, fosse enviado um email com o codigo gerado para o email cadastrado. O codigo entraria dentro de uma mensagem padrão.
Como faço isso????? Tentei desse jeito:

Public Sub EnviarEmail()

Dim codigo As String

codigo = UserForm1.TxtCod.Value

On Error GoTo ende
esubject = "Código de Permanência"
sendto = UserForm1.TxtEmail.Value
from = "coa@riogaleao.com"
ebody = "Prezado(ª)" & codigo & vbCrLf

Set app = CreateObject("Outlook.Application")
Set itm = app.createitem(0)

With itm
.Subject = esubject
.to = sendto
.from = from
.body = ebody
.display
.send
End With
Set app = Nothing
Set itm = Nothing

ende:
End Sub

Segue também meu projeto no anexo.

Me ajudem nessa!!!!! Abraços.

 
Postado : 17/04/2015 9:01 am
 laennder
(@laennder)
Posts: 62
Trusted Member
 

Aqui neste link existem vários exemplos de envio de e-mails utilizando Outlook e VBA.

http://www.rondebruin.nl/win/s1/outlook/mail.htm

Procure o que melhor lhe atenda, e adapte para sua necessidade.

Acredito que este seja o modelo que esteja procurando:
http://www.rondebruin.nl/win/s1/outlook/bmail4.htm

Laennder Alves
Microsoft MVP

 
Postado : 17/04/2015 12:59 pm
 afbergman
(@afbergman)
Posts: 108
Estimable Member
Topic starter
 

Aqui neste link existem vários exemplos de envio de e-mails utilizando Outlook e VBA.

http://www.rondebruin.nl/win/s1/outlook/mail.htm

Procure o que melhor lhe atenda, e adapte para sua necessidade.

Acredito que este seja o modelo que esteja procurando:
http://www.rondebruin.nl/win/s1/outlook/bmail4.htm

Primeiro laennder, obrigado pela resposta.

Entao, pesquisei atraves do site que vc me enviou e nao consegui ainda visualizar como que irei fazer para adaptar no meu procedimento. Toda vez que gravo uma solicitação preenchida atraves do form, eu gostaria que fossem reunidas algumas informações e colocadas no email. O problema é: Como vou pegar essas informações e colocar numa rotina de enviar email a cada novo cadastro? Entendeu? Na parte do codigo onde coloco o texto, só irá mudar o codigo gerado pelo form (cada vez que há um novo registro há um novo codigo, ele é sequecial), sendo que também muda o endereço do destinatario.

Como posso chegar lá???

Abs

 
Postado : 17/04/2015 1:23 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

afbergman...

O codigo que esta utilizando é um dos metodos que pode ser utilizado para o envio do email.

O que acontece quando tenta enviar ? gera algum erro ? Vejo que seu codigo nao tratamento de erro.

Inclua um tratamento de erro para identificar o problema do código.

Atente as propriedades basicas para o envio do email atraves do Outolook : Subject, Body, To, Send.

Posso esta enganado mais a propriedade From não existe para o objeto MailItem

Entre no ambiente VBA do Outlook e no Explorador de Objetos pesquise as propriedades do objeto MailItem

Abs

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/04/2015 3:01 pm
 afbergman
(@afbergman)
Posts: 108
Estimable Member
Topic starter
 

afbergman...

O codigo que esta utilizando é um dos metodos que pode ser utilizado para o envio do email.

O que acontece quando tenta enviar ? gera algum erro ? Vejo que seu codigo nao tratamento de erro.

Inclua um tratamento de erro para identificar o problema do código.

Atente as propriedades basicas para o envio do email atraves do Outolook : Subject, Body, To, Send.

Posso esta enganado mais a propriedade From não existe para o objeto MailItem

Entre no ambiente VBA do Outlook e no Explorador de Objetos pesquise as propriedades do objeto MailItem

Abs

Realmente tem varias coisas interessantes, mas eu ainda nao consegui visualizar como irei fazer o seguinte: Colocar o codigo gerado automaticamente no texto do email, e ja colocar o destinatario automaticamente no email.

Alguem tem ideia??

Abs

 
Postado : 18/04/2015 8:09 am
Forum Jump:
  Tópico Anterior
Próximo Tópico