[Resolvido] CDosys

[Reinaldo 0]

Olá Pessoal,

Como eu posso fazer para o campo DE: seja visto o nome da empresa ao invés do nome do email?

 

cdoConfig.Fields.Item(sch & "sendusername") = "contato@empresa.com.br"

 

cdoConfig.Fields.Item(sch & "sendusername") = "minha empresa"

 

no programa de email quero que no campo DE: mostre o nome da empresa.

 

grato.

[Patrique 0]

Não é possível, pelo menos que eu saiba, isto por que o campo "de" referece ao email do remetente, geralmente quando aparece o nome é por que o contato esta cadastrado pelo destinatário na seção contatos, dae o sistema monta esta formula, porém direto pelo script eu desconheço.

 

[]'s

[hargon 64]

Mas não é aí que você configura isso. É lá no FROM.

 

Exemplo:

objeto.From = "Nome da Empresa <email>"

 

O mesmo serve para To e ReplyTo.

[Ted k' 126]

É como o hargon citou, só não duplique esse objeto

 

cdoConfig.Fields.Item(sch & "sendusername")

[Reinaldo 0]

Valeu rapaziada, fiz desse jeito aqui:

"NOME DA EMPRESA,contato@empresa.com.br"

E mostra uns caracteres com o nome do servidor no campo DE.

Outra coisa, como evitar o erro com e-mails invalidos?

 

 

 

 

 

É como o hargon citou, só não duplique esse objeto

 

cdoConfig.Fields.Item(sch & "sendusername")

[xanburzum 169]

você pode fazer a validação de endereços do E-mail até mesmo por Regular expression,mas

você pode ver se o endereço é valido agora saber se existe é meio complicado , pois existem 1 googolplex de dominiio e a cada dia tem varios novos...

 

<%
Function IsEmail(ByVal strEmail)
	Dim regEx
	Dim ResultadoHum
	Dim ResultadoDois 
	Dim ResultadoTres
    Set regEx = New RegExp            ' Cria o Objeto Expressão
    regEx.IgnoreCase = True         ' Sensitivo ou não
    regEx.Global = True             ' Não sei exatamente o que faz 
    
    ' Caracteres Excluidos
    regEx.Pattern    = "[^@\-\.\w]|^[_@\.\-]|[\._\-]{2}|[@\.]{2}|(@)[^@]*\1"
    ResultadoHum    = RegEx.Test(strEmail)
    ' Caracteres validos
    regEx.Pattern    = "@[\w\-]+\."        
    ResultadoDois    = RegEx.Test(strEmail)
    ' Caracteres de fim
    regEx.Pattern    = "\.[a-zA-Z]{2,3}$"  
    ResultadoTres    = RegEx.Test(strEmail)
    Set regEx = Nothing
    
    If Not (ResultadoHum) And ResultadoDois And ResultadoTres Then
        IsEmail = True
    Else
        IsEmail = False
    End If
End Function

'CHAMANDO A FUNCAO
response.Write IsEmail("email@provedor.com.br")
%>

[hargon 64]

Informando "NOME DA EMPRESA <contato@empresa.com.br>" sei que funciona, pois utilizo assim. Você tentou dessa forma?

[Reinaldo 0]

Beleza pessoal, está tudo funcionando obrigado a todos.

[hargon 64]

Bacana. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif