Olá a todos,
Estou a tentar usar este srcipt para o envio de mails
<% sub sergio
set myMail=CreateObject("CDO.Message")
myMail.Subject="tem um novo BNC"
myMail.From="xxx@xxx.pt"
myMail.To=(Session("MM_Username")+"@xxx.pt")
myMail.TextBody=myMail.to
myMail.TextBody=myMail.TextBody& " enviou-lhe o BNC numero "
myMail.TextBody=myMail.TextBody&((Recordset1_total))
myMail.TextBody=myMail.TextBody& " para analisar e responder. " & vbCrLf & vbCrLf
myMail.TextBody=myMail.TextBody& "esta mensagem foi enviada automáticamente pelo sistema"
myMail.Configuration.Fields.Item _
("
http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("
http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="xxx.xxx.xxx.xxx"
'Server port
myMail.Configuration.Fields.Item _
("
http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
end sub
%>
O script funciona na perfeição só que tenho um pequeno GRANDE problema:
Quando faço refresh á página é tambem enviado um mail.
Nesta página faço a introdução de dados num form de uma página ASP e tentei chamar o procedimento no evento "onclick" do botão de submit do form mas ao fazer o refresh saí um mail disparado.
Alguem me pode ajudar???
Sérgio
