Enviar email automatico pelo asp

[cesarhtc 0]

Preciso fazer um envio de email automático via ASP, alguémpode ajudar?

[xanburzum 169]

que tipo de automático seria...

por data, por hora, após preenchimento ?

[cesarhtc 0]

<SCRIPT LANGUAGE='VBScript' RUNAT='Server'>

' Aplicação aplicat

Sub Application_OnStart()

' Server.ScriptTimeout = 10

Application.Lock

Application ("totalusu")=0

Application ("usuarios")=0

 

'Application ("conexao") ="Provider=OraOLEDB.Oracle.1; Password=; Persist Security Info=True;User ID=; Data Source=;"

 

' Código para enviar o email ao webmaster.

 

Application.UnLock

 

End Sub

 

Sub Session_OnStart()

 

'1) Montar a String de Conexão

'Cria um objeto recordset

set rstMain = Server.CreateObject("ADODB.Recordset")

 

strSQL=""

 

'response.write strsql &"<BR>"

'response.End

 

'Conecta ao BD pelo DSN e abre a consulta

'Como resultado, o recordset conterá a tabela-resposta

 

rstMain.Open StrSQL, Application("CONEXAO")

if not rstMain.EOF Then

 

Do until rstMain.EOF

 

Dias = rstMain("DIAS")

 

 

If dias ="41" Then

 

Application.Lock

Set objMail = Server.CreateObject("CDONTS.NewMail")

objMail.To = "xpto@]"

objMail.From =webmaster@]"

objMail.Cc = "adg@gmail.com"

objMail.Subject = "Email do mês!"

objMail.Body = "GRITE BARCELLONA 17:00."

objMail.Send

 

 

' Move para o próximo registro

rstMain.movenext

Loop

rstMain.Close

Else

 

 

'Libera a memória (destrói o objeto recordset)

Set rstMain=Nothing

End IF

 

 

Application ("totalusu")=Application ("totalusu")+1

Application ("usuarios")=Application ("usuarios")+1

Application.UnLock

 

End Sub

 

 

Sub Session_OnEnd

Application.Lock

Application ("usuarios")=Application ("usuarios")-1

Application.UnLock

End Sub

 

</SCRIPT>

 

Alguém poderia me ajudar?

 

Desde já agradeço.

[xanburzum 169]

o que acontece com este code ?e

esta dando erro ?

[cesarhtc 0]

Na linha do Loop

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/LM/W3SVC/513758688/Root/global.asa, line 75

Loop^

[xanburzum 169]

poste a linha 75...

mas já verifique se esta faltando o Do no seu loop

[cesarhtc 0]

é a linha onde está o LOOP.

[xanburzum 169]

use Do...While

[cesarhtc 0]

Fiz assim e o servidor travou.

****************************************************

Sub Session_OnStart()

Application.Lock

'1) Montar a String de Conexão

'Cria um objeto recordset

set rstMain = Server.CreateObject("ADODB.Recordset")

 

strSQL=""

 

'response.write strsql &"<BR>"

'response.End

 

'Conecta ao BD pelo DSN e abre a consulta

'Como resultado, o recordset conterá a tabela-resposta

 

rstMain.Open StrSQL, Application("CONEXAO")

if not rstMain.EOF Then

 

Do UNTIL rstMain.EOF

 

Dias = rstMain("DIAS")

 

 

Do WHILE Not(rstMain.EOF) And dias ="41"

rstMain.movenext

if (NOT rstMain.EOF) then

 

Set objMail = Server.CreateObject("CDONTS.NewMail")

objMail.To = "xpto@"

objMail.From ="xpto@"

 

objMail.Subject = "Email do mês!"

objMail.Body = "13/09/2013" & dias

objMail.Send

End IF

LOOP

' Move para o próximo registro

'rstMain.movenext

Loop

rstMain.Close

 

 

'Libera a memória (destrói o objeto recordset)

Set rstMain=Nothing

End IF

'************************************

 

Application ("totalusu")=Application ("totalusu")+1

Application ("usuarios")=Application ("usuarios")+1

Application.UnLock

 

End Sub

 

 

Sub Session_OnEnd

Application.Lock

Application ("usuarios")=Application ("usuarios")-1

Application.UnLock

End Sub

[xanburzum 169]

provavelmente entrou em Loop_eterno

 

ele gerou erro ?

[cesarhtc 0]

Não gerou erro simplesmente nenhuma pagina asp abriu. Tive que reinicializar o ISS.

 

quer dizer IIS..

[xanburzum 169]

é o seu loop

[cesarhtc 0]

Como Assim?

[xanburzum 169]

Do WHILE Not(rstMain.EOF) And dias ="41"

[cesarhtc 0]

Fiz assim e nada.

Do WHILE Not(rstMain.EOF)
rstMain.movenext

if (NOT rstMain.EOF) And dias ="34" then

Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = ""
objMail.From =""
'objMail.Cc = "adg@gmail.com"
objMail.Subject = "Email do mês!"
objMail.Body = "13/09/2013" & dias
objMail.Send
End IF
LOOP
' Move para o próximo registro
'rstMain.movenext
Loop
rstMain.Close

[xanburzum 169]

vc ten certeza que seu If será satisfeito (existe mesmo)...

[cesarhtc 0]

Tenho que colocar uma condição. ???

[xanburzum 169]

essa condição satisfaz seus dados ?

[cesarhtc 0]

Bom dia,

 

Como faço para criar link em objMail.Body= "Informações para Plano de Ação referente a Ata " & Contrato & vbCrLf _

 

Obrigado.

[Humberto Oliveira Pinto 8]

adicione:

objMail.Bodyformat = 0
objMail.MailFormat = 0
objMail.Body = htmlemail

objMail.Body= "Informações para Plano de Ação referente a Ata <a href=""contrato.html"">CONTRATO</a>"