Problema no envio de email - Could not access ´CDO.Message´

Delphi

03/04/2006

public string EnviaEMail(string sMsg, string sDestinatario)
        {
         
            MailMessage newMessage = new MailMessage();
            newMessage.From = "xxxxx@xxxxx.com.br";
            newMessage.To = sDestinatario.Trim();
            
            newMessage.Subject ="Sua chave de autorização" ;

          
            newMessage.Body = sMsg;
            SmtpMail.SmtpServer ="xxx.xxxx.com.br";
                                //  String.
            if (
                (newMessage.Body != String.Empty) && 
                (newMessage.Body != null        ) && 
                (newMessage.To   != String.Empty) && 
                (newMessage.From != String.Empty)
               )
            {
                
                newMessage.BodyFormat = MailFormat.Text;

                try
                {
                    
                    SmtpMail.Send(newMessage);
                     return "OK";
                } 

               
                catch (Exception E)
                {
                    return("Application can´t send your EMail - See The Help Content EMailSender - Sending Error\n\n"+E.Message);
                        
                }
            }
            else
                return ("Empty Message body and/or empty ´To´, ´From´ fields EMailSender - Information");
                  
    
        }

Na hora do envio está dando este erro:
Could not access ´CDO.Message´ object

Alguém pode me ajudar?


Uhkra

Uhkra

Curtidas 0

Respostas

Sanses

Sanses

03/04/2006

Olá

Aparentemente o seu código está correto (não testei), mas voce tem o CDO instalado no servidor onde está testando ? Se tem, ele está sendo encontrado por sua aplicação ?

[]´s
Sanses


GOSTEI 0
Uhkra

Uhkra

03/04/2006

Não sei... : oops:
Já mudei isto!


GOSTEI 0
POSTAR