AJUDA PRA ENCAMINHAR EMAIL VB6

ROBSONFURTUNATO 16/06/2011 13:07:38
#376971

Pessoal estou com dificuldades no código, estou querendo fazer que na hora q certa pessoa colocar os dados e salvar, venha um email pra mim dizendo quem salvou(usuário) e a data que Salvou.

A seguir está o código

[ô]-----------------------------------------------
[ô] Função: Send_Email_Alarme_Ard_Preventiva
[ô] Autor: Robson Furtunato
[ô] Data: 10/06/2011
[ô] Obs: Função que manda email de aviso
[ô]-----------------------------------------------
Function Send_Email_Alarme_Ard_Preventiva()

On Error GoTo err_Check_User_Inativo
Dim l_rsTemp As ADODB.Recordset
Dim l_sql As String
Dim l_Message As String
[ô]Dim l_Email As String

updateHeader 10

Set l_rsTemp = CreateObject([Ô]adodb.recordset[Ô])


l_sql = [Ô]SELECT pard_internal ,cit_reg_code, cit_name, prev_ard, tmod_modelo, typ_name, prog_date, pard_created, pard_email_alarme, prog_status[Ô]
l_sql = l_sql & [Ô] FROM 'preventiva' [Ô]
l_sql = l_sql & [Ô] INNER JOIN city ON prev_cit_code = cit_code[Ô]
l_sql = l_sql & [Ô] INNER JOIN type_modelo ON tmod_code = prev_modelo[Ô]
l_sql = l_sql & [Ô] INNER JOIN type_preventiva ON prev_typ_code = typ_code[Ô]
l_sql = l_sql & [Ô] INNER JOIN programacao_prev ON prog_prev_internal = prev_internal[Ô]
l_sql = l_sql & [Ô] INNER JOIN prev_ard ON pard_prog_internal = prog_prev_internal[Ô]
l_sql = l_sql & [Ô] where pard_email_alarme = [ô]0[ô] and pard_alarme_dt_created <> [ô]0000-00-00[ô][Ô]
l_rsTemp.CursorLocation = adUseClient
l_rsTemp.Open l_sql, f_Connection, adOpenDynamic
If Not (l_rsTemp.BOF And l_rsTemp.EOF) Then

[ô]l_rsTemp.MoveFirst

Do

l_Message = f_Html_inicio & f_Html_Bold_inicio
[ô]l_Message = l_Message & [Ô]BC[Ô]
l_Message = l_Message & f_Html_meio & [Ô]Regional[Ô]
l_Message = l_Message & f_Html_meio & [Ô]Cidade[Ô]
l_Message = l_Message & f_Html_meio & [Ô]Armário[Ô]
l_Message = l_Message & f_Html_meio & [Ô]Modelo[Ô]
l_Message = l_Message & f_Html_meio & [Ô]Atividade[Ô]
l_Message = l_Message & f_Html_meio & [Ô]Criado[Ô]
l_Message = l_Message & f_Html_meio & [Ô]Data Programação[Ô]
l_Message = l_Message & f_Html_meio & [Ô]Status[Ô]
l_Message = l_Message & f_Html_meio & f_Html_Bold_fim & f_Html_fim

l_Message = l_Message & f_Html_inicio
[ô]l_Message = l_Message & l_rsTemp!cto_bc
l_Message = l_Message & f_Html_meio & l_rsTemp!cit_reg_code
l_Message = l_Message & f_Html_meio & l_rsTemp!cit_name
l_Message = l_Message & f_Html_meio & l_rsTemp!prev_ard
l_Message = l_Message & f_Html_meio & l_rsTemp!tmod_modelo
l_Message = l_Message & f_Html_meio & l_rsTemp!typ_name
l_Message = l_Message & f_Html_meio & Format(l_rsTemp!prog_date, [Ô]DD/MMM/YYYY[Ô])
l_Message = l_Message & f_Html_meio & l_rsTemp!pard_created
l_Message = l_Message & f_Html_meio & f_Html_fim

lblStatus.Caption = [Ô]Send_Email_Alarme_Ard_Preventiva...[Ô]
lblStatus.Refresh

[ô]Send_HTML_Message [Ô]Robson[Ô], l_rsTemp([Ô]pard_created[Ô]), l_rsTemp([Ô]prod_date[Ô]), [Ô][Ô], [Ô]0.00[Ô], l_Message, 2, , , [Ô]robson.furtunato@gvt.com.br[Ô]
Send_HTML_Message [Ô]Robson[Ô], [Ô][Ô], [Ô][Ô], [Ô]0.00[Ô], [Ô]Teste[Ô], l_Message, 10, , , [Ô]robson.furtunato@gvt.com.br[Ô]
[ô]Send_HTML_Message [Ô]User Inativo[Ô], [Ô][Ô], [Ô][Ô], [Ô]0.00[Ô], _
[Ô]AVISO: Inativação de Login no OSP Control[Ô], l_Message, 2, , , l_rsUser!user_email

l_sql = [Ô]update prev_ard set pard_email_alarme = [ô]1[ô] where pard_prog_internal = [ô][Ô] & l_rsTemp([Ô]pard_internal[Ô]).Value & [Ô][ô][Ô]
f_Connection.Execute l_sql

[ô]l_rsTemp.MoveNext
Loop Until l_rsTemp.EOF

End If
l_rsTemp.Close

Exit Function
err_Check_User_Inativo:
InsertError [Ô]frmNotification:Check_User_Inativo[Ô], Err
End Function


OBS: O ERRO Q ESTÁ APARECENDO é ESSE [Ô]not connected to a server[Ô]