ENVIAR EMAIL

FILMAN 12/09/2012 15:47:20
#409514
Olá pessoal preciso da ajuda de vocês

Tenho um projeto em ASP CLASSICO que esta rodando perfeitamente! num servidor WEB Windows Server 2003 32bit

Estou migrando o sistema para um servidor com Windows Server 2008 R2 64bit

utilizo a DLL vbSendMail.dll para fazer os envios dos emails já as registrei na pasta SysWOW64 e na pasta System32 e não funciona o que pode ser?


Obrigado
Só falta isso para migração funcionar perfeitamente!
OCELOT 12/09/2012 16:02:21
#409516
Essa dll provavelmente é apenas de 32 Bits, então você deve registrar ela somente na pasta SysWOW64 que é a pasta de sistema de programas 32 Bits, além disso pode ser que você tenha que configurar o IIS para rodar o seu site em 32 Bits já que não tem como carregar uma DLL de 32 Bits se o site estiver rodando em um processo de 64 Bits.
FILMAN 20/09/2012 14:53:30
#410088
Pessoal boa tarde!

Não consegui resolver a questão de envio com o vbSendMail.dll, porem passei a utilizar a biblioteca CDOSys.dll que vem com o próprio
windows e esta funcionando perfeitamente só que preciso fazer uma alteração que não estou conseguindo!

quando determino quem esta enviando faço assim:
Dim schema
schema = [Ô]http://schemas.microsoft.com/cdo/configuration/[Ô]

Set mApp = CreateObject([Ô]CDO.Message[Ô])
mApp.Configuration.Fields.Item(schema & [Ô]smtpserver[Ô]) = [Ô]IP do smtp[Ô]
mApp.Configuration.Fields.Item(schema & [Ô]sendusing[Ô]) = 2
mApp.Configuration.Fields.Item(schema & [Ô]smtpserverport[Ô]) = porta smtp
mApp.Configuration.Fields.Item(schema & [Ô]sendusername[Ô]) = [Ô]email@email.com.br[Ô]
mApp.Configuration.Fields.Update

With OutApp
    sMensagemEmail = [Ô][Ô]
    .To = [Ô]email@destinatario.com.br[Ô]
    .From = [Ô]email@email.com.br[Ô]
    .Subject = [Ô]Nova Solicitacao - Service Desk[Ô]
    sMensagemEmail = MensagemEmail(sNomeDe, sNomePara, assunto, sNumeroSolicitacao, [Ô]1[Ô], [Ô][Ô])
    .HTMLBody = sMensagemEmail
    .Sender = sNomePara
    .Send
End With


Envia perfeitamente só que não consigo mudar o nome de quem esta enviando o email ou seja na clausula .FROM

Já tentei assim e não deu certo: 
.From = [Ô]E-Mail Automatico - Service Desk <email@email.com.br>[Ô]
Tópico encerrado , respostas não são mais permitidas
Voltar