<% ' Rotina para o Envio de Email **** JMail.SMTPMail **** Set smtp = Server.CreateObject("JMail.SMTPMail") smtp.Priority = 3 smtp.ContentType = "text/html" smtp.Sender = Request.Form("remetente") ' Endereço de Email do Remetente smtp.SenderName = Request.Form("nome") smtp.AddRecipient "geral@bernardinoalves.pt" ' Endereço de Email do Destinatário 'smtp.AddRecipient "costa@m3cmedia.com" ' Endereço de Email do Destinatário smtp.Subject = "Contacto - " & Request.Form("assunto") smtp.Body = Request.Form("nome") & " ( " & Request.Form("telefone") & " )
" & Request.Form("morada") & "
escreveu a seguinte mensagem:

" & Request.Form("mensagem") smtp.Execute set smtp = Nothing %>
A sua mensagem foi enviada com sucesso !
... e será alvo da nossa especial atenção.
Obrigado pelo contacto.