Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Marcus V

Após consulta, gravar em BD e enviar por e-mail

Por , em ASP Clássico

Recommended Posts

Marcus V    0

Marcus V
Postado

Estou com um certo problema, tenho um formulário, onde primeiramente faço uma consulta pelo CPF, ele busca o CPF da pessoa e traz algumas informações, na página que o action chama, confirmo os dados e peço para avançar, nesse ponto ele grava no BD e vai para outra página onde envia o e-mail, só que ele ta chegando em branco.

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

gera algum erro ?

como vc esta colocando as informações no .body do email

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcus V    0

Marcus V
Postado

Não gera nenhum erro, simplesmente é enviado o e-mail, porém chega com as informações em branco, segue abaixo o código para gravação no BD, está gravando:

 

<%
Dim Sql
Set BdWeb = Server.CreateObject("ADODB.Connection")
BdWeb.Open "Provider=SQLOLEDB.1;SERVER=cradfsr008;DATABASE=xxxxxxxxxxx;"
Set rsWeb = Server.CreateObject("ADODB.RecordSet")
rsWeb.Open "SELECT Distinct Profissionais.Nome AS [Nome do profissional] , Profissionais.SituacaoAtual AS [situação atual] , Profissionais.RegistroConselhoAtual AS [Registro conselho atual] , SUBSTRING(Profissionais.CPF, 1, 3)+'.'+SUBSTRING(Profissionais.CPF, 4, 3)+'.'+SUBSTRING(Profissionais.CPF, 7, 3)+'-'+SUBSTRING(Profissionais.CPF, 10, 2) AS [CPF formatado] , Profissionais.EnderecoEMail AS [Endereco E_Mail],Profissionais.IdProfissional AS [idAiss00aisIdProfissional]From Profissionais WHERE ( ( Profissionais.SituacaoAtual = 'ATIVO' OR Profissionais.SituacaoAtual = 'REMIDO' )) AND ( ( Profissionais.CPF like '%"&Request.Form("CPF")&"%' ))ORDER BY 'Nome do profissional','Situação atual','Registro conselho atual','Endereco E_Mail' ",Bdweb,3,3
%>
<%
if rsWeb.eof then
response.write "Não detectamos o CPF na lista de . Maiores informações, favor entrar em contato com o x. Telefones: - E-mail: "
response.end
end if
%>
<%
' *** Edit Operations: declare variables
MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables
If (CStr(Request("MM_insert")) <> "") Then
MM_editConnection = ConnP
MM_editTable = "CARTEIRA_PROFISSIONAL"
MM_editRedirectUrl = "confirma_carteira.asp"
MM_fieldsStr = "Nome|value|empresa|value|ramoatividade|value|cargo|value|email|value|fone1|value|fone2|value|fax|value|logradouro|value|bairro|value|cidade|value|estado|value|cep|value|data|value|usuario|value"
MM_columnsStr = "CART_NOME|',none,''|CART_CIC|',none,''|CART_REGISTRO|',none,''|CART_MOTIVO|',none,''|CART_EMAIL|',none,''|CART_FONE1|',none,''|CART_FONE2|',none,''|AGCLI_FAX|',none,''|AGCLI_END|',none,''|AGCLI_ENDBAIRRO|',none,''|AGCLI_ENDCIDADE|',none,''|AGCLI_ENDUF|',none,''|AGCLI_ENDCEP|',none,''|AGCLI_DATA|',none,''|AGCLI_ADDER|',none,''"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it
If (CStr(Request("MM_insert")) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<%
function data()
dia = day(date())
if day(date()) <= 9 then
dia = "0" & day(date())
end if
mes = month(date())
if month(date()) <= 9 then
mes = "0" & month(date())
end if
ano = year (date())
data = mes & "/" & dia & "/" & ano
end function
Dt_prevista = DateAdd("d",7,data())
%>
<% Response.Buffer = "true" %>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function DoTrimProperly(str, nNamedFormat, properly, pointed, points)
dim strRet
strRet = Server.HTMLEncode(str)
strRet = replace(strRet, vbcrlf,"")
strRet = replace(strRet, vbtab,"")
If (LEN(strRet) > nNamedFormat) Then
strRet = LEFT(strRet, nNamedFormat)
If (properly = 1) Then
Dim TempArray
TempArray = split(strRet, " ")
Dim n
strRet = ""
for n = 0 to Ubound(TempArray) - 1
strRet = strRet & " " & TempArray(n)
next
End If
If (pointed = 1) Then
strRet = strRet & points
End If
End If
DoTrimProperly = strRet
End Function
</SCRIPT>
AGORA O DO E-MAIL:
<%
nome = Request.QueryString("Nome")
empresa = Request.QueryString("empresa")
ramoatividade = Request.QueryString("ramoatividade")
cargo = Request.QueryString("cargo")
email = Request.QueryString("email")
corpo = "Segue abaixo minhas informacoes:" & vbcrlf
corpo = corpo & vbcrlf
corpo = corpo & vbcrlf
corpo = corpo & "Nome: "&Nome&"" & vbcrlf
corpo = corpo & vbcrlf
corpo = corpo & "E-mail: "&email&"" & vbcrlf
corpo = corpo & vbcrlf
corpo = corpo & "Registro : "&ramoatividade&"" & vbcrlf
corpo = corpo & vbcrlf
corpo = corpo & "CPF: "&empresa&"" & vbcrlf
corpo = corpo & vbcrlf
corpo = corpo & "Motivo: "&cargo&"" & vbcrlf
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields.update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "faleconosco@xxxxx"
objCDOSYSMail.To = "faleconosco@xxxxx"
objCDOSYSMail.Subject = "SOLICITACAOxVIA DE CARTEIRA"
objCDOSYSMail.TextBody = corpo
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Dê um response.write no corpo

 

response.write(corpo)

response.end()

 

e troque o Request.QueryString por Request.Form

 

nome = Request.Form("Nome")

empresa = Request.Form("empresa")
ramoatividade = Request.Form("ramoatividade")
cargo = Request.Form("cargo")
email = Request.Form("email")

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcus V    0

Marcus V
Postado

Realizei essas alterações, porém em vez de enviar o e-mail, abriu a página de confirmação com o corpo, só que sem as informações.

 

 

Então tentei colocar o código do E-MAIL antes do INSERT no BD, na mesma página que confirma e envia as informações e funcionou. porém me deparei com outro problema, pois na primeira tela que é a da consulta do CPF, quando coloco o CPF e ele traz a página com as informações para confirmar e enviar, automaticamente me manda um e-mail com as informações em branco da mesma maneira do citado acima, só que dessa vez antes.

 

 

 

tipo assim : PÁGINA CONSULTA CPF ----> INFORMAÇÕES DEVOLVIDAS PARA CONFIRMAR, GRAVAR E ENVIAR POR E-MAIL ----> PÁGINA DE CONFIRMAÇÃO

Compartilhar este post

Link para o post
Compartilhar em outros sites

The Jhunior    0

The Jhunior
Postado

Da um print no corpo, se estiver em branco o problema está no redirecionamento.

 

Verifica se as informações estão indo corretamente na URL via string.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcus V    0

Marcus V
Postado 
SEGUEM OS CÓDIGOS !!

CÓDIGO PARA ENVIO DO E-MAIL
<%
    nome = Request.form("Nome") 
    empresa = Request.form("empresa") 
    ramoatividade = Request.form("ramoatividade") 
    cargo = Request.form("cargo")  
    email = Request.form("email")  
 
corpo = "Segue abaixo minhas informacoes:" & vbcrlf
corpo = corpo & vbcrlf
corpo = corpo & vbcrlf
corpo = corpo & "Nome: "&Nome&"" & vbcrlf
corpo = corpo & vbcrlf
corpo = corpo & "E-mail: "&email&"" & vbcrlf
corpo = corpo & vbcrlf
corpo = corpo & "Registro: "&ramoatividade&"" & vbcrlf 
corpo = corpo & vbcrlf
corpo = corpo & "CPF: "&empresa&"" & vbcrlf
corpo = corpo & vbcrlf 
corpo = corpo & "Motivo: "&cargo&"" & vbcrlf  

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
	Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 
	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail"   
	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 
	objCDOSYSCon.Fields.update 
	Set objCDOSYSMail.Configuration = objCDOSYSCon 
	objCDOSYSMail.From = "EMAIL@EMAIL"
    objCDOSYSMail.To = "EMAIL@EMAIL"     
	objCDOSYSMail.Subject = "SOLICITACAO" 
    objCDOSYSMail.TextBody = corpo 
    objCDOSYSMail.Send
    Set objCDOSYSMail = Nothing
    
%>  

PARA GRAVAR NO BANCO
<%
' *** Edit Operations: declare variables
MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables
If (CStr(Request("MM_insert")) <> "") Then
MM_editConnection = ConnP
MM_editTable = "CARTEIRA_PROFISSIONAL"
MM_editRedirectUrl = "confirma_carteira.asp"
MM_fieldsStr = "Nome|value|empresa|value|ramoatividade|value|cargo|value|email|value|fone1|value|fone2|value|fax|value|logradouro|value|bairro|value|cidade|value|estado|value|cep|value|data|value|usuario|value"
MM_columnsStr = "CART_NOME|',none,''|CART_CIC|',none,''|CART_REGISTRO|',none,''|CART_MOTIVO|',none,''|CART_EMAIL|',none,''|CART_FONE1|',none,''|CART_FONE2|',none,''|AGCLI_FAX|',none,''|AGCLI_END|',none,''|AGCLI_ENDBAIRRO|',none,''|AGCLI_ENDCIDADE|',none,''|AGCLI_ENDUF|',none,''|AGCLI_ENDCEP|',none,''|AGCLI_DATA|',none,''|AGCLI_ADDER|',none,''"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it
If (CStr(Request("MM_insert")) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<%
function data()
dia = day(date())
if day(date()) <= 9 then
dia = "0" & day(date())
end if
mes = month(date())
if month(date()) <= 9 then
mes = "0" & month(date())
end if
ano = year (date())
data = mes & "/" & dia & "/" & ano
end function
Dt_prevista = DateAdd("d",7,data())
%>
<% Response.Buffer = "true" %>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function DoTrimProperly(str, nNamedFormat, properly, pointed, points)
dim strRet
strRet = Server.HTMLEncode(str)
strRet = replace(strRet, vbcrlf,"")
strRet = replace(strRet, vbtab,"")
If (LEN(strRet) > nNamedFormat) Then
strRet = LEFT(strRet, nNamedFormat)
If (properly = 1) Then
Dim TempArray
TempArray = split(strRet, " ")
Dim n
strRet = ""
for n = 0 to Ubound(TempArray) - 1
strRet = strRet & " " & TempArray(n)
next
End If
If (pointed = 1) Then
strRet = strRet & points
End If
End If
DoTrimProperly = strRet
End Function
</SCRIPT>

<form method="POST" action="<%=MM_editAction%>" name="CARTEIRA_PROFISSIONAL">

CONSULTA DO CPF 

<form name="busca" method="POST" target=_self action="form_carteira.asp">
<p align="left">
<input type="text" name="CPF" id="CPF" maxlength="20" size="20">  
<input type="submit" value="Consultar" name="btEnviar">
<input type="reset" value="Limpar"></p>
</form>



CÓDIGO PARA MOSTRAR AS INFORMAÇÕES APÓS A CONSULTA PELO CPF
<%
Dim Sql
Set BdWeb = Server.CreateObject("ADODB.Connection")
BdWeb.Open "Provider=SQLOLEDB.1;SERVER=cradfsr008;DATABASE=xxxxxxxxxxx;"
 
Set rsWeb = Server.CreateObject("ADODB.RecordSet")
rsWeb.Open "SELECT  Distinct  Profissionais.Nome  AS [Nome do profissional] ,  Profissionais.SituacaoAtual  AS [Situação atual] ,  Profissionais.RegistroConselhoAtual  AS [Registro conselho atual] ,  SUBSTRING(Profissionais.CPF, 1, 3)+'.'+SUBSTRING(Profissionais.CPF, 4, 3)+'.'+SUBSTRING(Profissionais.CPF, 7, 3)+'-'+SUBSTRING(Profissionais.CPF, 10, 2)   AS [CPF formatado] ,  Profissionais.EnderecoEMail  AS [Endereco E_Mail],Profissionais.IdProfissional AS [IdAiss00aisIdProfissional]From Profissionais  WHERE   (  ( Profissionais.SituacaoAtual = 'ATIVO' OR Profissionais.SituacaoAtual = 'REMIDO' ))   AND ( ( Profissionais.CPF like '%"&Request.Form("CPF")&"%'  ))ORDER BY  'Nome do profissional','Situação atual','Registro conselho atual','Endereco E_Mail' ",Bdweb,3,3 
%>
 
<%
if rsWeb.eof then
  response.write "Não detectamos o CPF na lista de . Maiores informações, favor entrar em contato com o x. Telefones: - E-mail: "
  response.end
end if
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

dÊ um response.write nas variáveis para ter certeza que esta passando informação

 

nome = Request.form("Nome")
empresa = Request.form("empresa")
ramoatividade = Request.form("ramoatividade")
cargo = Request.form("cargo")
email = Request.form("email")

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcus V    0

Marcus V
Postado

Infelizmente tentei novamente, mas não deu certo, esta registrando ok no BD, o problema que a próxima página onde está o código para o envio do e-mail, não esta conseguindo trazer as informações gravadas no BD para enviar. O e-mail chega da seguinte forma:

 

Segue abaixo minhas informações:

 

 

Nome:

 

E-mail:

 

Registro:

 

CPF:

 

Motivo:

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

faça um teste passe as variáveis através de session

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcus V    0

Marcus V
Postado

Xanburzum ... fiz o que disse, mas continua do mesmo jeito.

 

Estive pensando tenho a página onde realizo a consulta do CPF, ela ta configurada para quando clicar assim:

<form name="save" method="POST"  action="form_carteira.asp">
<p align="left">

<input type="text" name="CPF" id="CPF" maxlength="20" size="20"> 
 
<input type="submit" value="Consultar" name="btEnviar">

<input type="reset" value="Limpar"></p>
<p align="left">
 </p>
</form>

Porém quando traz as informações no form_carteira e eu colocar o código do email ele só de abrir ja me envia um e-mail, só que tb chega em branco as informações, teria como barrar esse envio ??

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

sim, você terá que abrir o form_carteira.asp, verificar onde esta o code de envio, e remova-o ou deixe o code comentado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcus V    0

Marcus V
Postado

Olha só como esta funcionando agora:

 

1º página solic_carteira.asp onde coloco o CPF e clico em consultar (botao submit);

 

2º página form_carteira.asp que traz o dados referentes ao CPF consultado, já me envia um e-mail com as informações em branco como ja citei, e se dou um voltar ele tambem me envia. Porém essa mesma página quando clico em avançar (botao submit) ele grava no BD e envia novamente o e-mail, agora as com as informações certinho.

 

Estou parado uns 5 dias com esse problema !!!



CONSEGUI RESOLVER !!!! A PÁGINA COM O O CÓDIGO DO E-MAIL FICOU ASSIM:

 

<%


Set ConnP = Server.CreateObject("ADODB.Connection")
ConnP.open="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\Inetpub\Database\painel.mdb;"


Set RS = ConnP.Execute ("SELECT * From CARTEIRA_PROFISSIONAL")



Dim iCnt
Do Until RS.EOF
iCnt = iCnt + 1
  Nome = RS("CART_Nome")
  Email = RS("CART_Email")
  Ramoatividade = RS("CART_REGISTRO")
  Empresa = RS("CART_CIC")
  Cargo = RS("CART_MOTIVO")
  RS.MoveNext
Loop


RS.Close
Connp.Close
%>

<%   
    
corpo = "Segue abaixo minhas informações:" & vbcrlf
corpo = corpo & vbcrlf
corpo = corpo & vbcrlf
corpo = corpo & "Nome: "&Nome&"" & vbcrlf
corpo = corpo & vbcrlf
corpo = corpo & "E-mail: "&email&"" & vbcrlf
corpo = corpo & vbcrlf
corpo = corpo & "Registro: "&ramoatividade&"" & vbcrlf 
corpo = corpo & vbcrlf
corpo = corpo & "CPF: "&empresa&"" & vbcrlf
corpo = corpo & vbcrlf 
corpo = corpo & "Motivo: "&cargo&"" & vbcrlf  

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 
	
	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail"   
	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 
	
	objCDOSYSCon.Fields.update 
	Set objCDOSYSMail.Configuration = objCDOSYSCon 
	objCDOSYSMail.From = "faleconosco@email.com"
    objCDOSYSMail.To = "faleconosco@email.com"     
	objCDOSYSMail.Subject = "Solicitação  de Carteira" 
    objCDOSYSMail.TextBody = corpo 
    objCDOSYSMail.BodyPart.Charset = "utf-8"
    objCDOSYSMail.Send
    Set objCDOSYSMail = Nothing  
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

o code de email ficou praticamente o mesmo com exceção do objCDOSYSMail.BodyPart.Charset = "utf-8"

 

e agora estão vindo os dados. Parabéns

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito