ENVIO de CORREOS, con .NET Framework 1.1 (Visual Basic 2003)

‘Alternativa si no tenemos configurado SMTP o problemas con el CDO’

crearemos el objeto correo, como mensaje de mail, asignaremos los valores del mismo y sencillamente llamaremos a la función ‘send’. Deberemos substituir todas las variables ‘email_’ con el valor o string adecuado. A saber ‘email_User’ debe contener el usuario de la cuenta que envia el correo electronico, ‘email_Pwd’ su password… etc.

  ‘
  ‘Conformar un mensage de mail
  Dim correo As MailMessage = New MailMessage
  ‘Definir el esquema CDO
  Dim Esquema As String = «http://schemas.microsoft.com/cdo/configuration/«
  ‘Llenar de contenido el mensage
  correo.From = email_From
  correo.To = email_To
  correo.Cc = email_Cc
  correo.Subject = «Motivo del mensaje»
  correo.Body = emailMensa
  ‘Asignar las credendiales
  correo.Fields.Add(Esquema + «smtpauthenticate», «1»)
  correo.Fields.Add(Esquema + «sendusername», email_User)
  correo.Fields.Add(Esquema + «sendpassword», email_Pwd)
  ‘Asignar el nombre del servidor de correo
  SmtpMail.SmtpServer = email_smtp
  Try
       SmtpMail.Send(correo)            ‘Enviar el correo
  Catch ex As Exception
       ‘reportar problemas al eventlog
        Mensaje.Registra(«Alertas», ex.Message, EventLogEntryType.Error, 4)
  End Try

En cuanto a como transferir o recibir ficheros, en .NET usando Ftp:

Si estas usando Visual Studio 2003, lo tienes en la libreria System.Net, con el metodo ‘WebRequest’ creas un ‘streamreader’ y con el ‘WebResponse’ un ‘streamwriter’ que utilizas posteriormente para escribir el archivo en local.

WebRequest.RegisterPrefix(«ftp», new FtpWebRequestCreator());
WebRequest req = WebRequest.Create(ftp://ftp.lapagina.com/);

En Visual Studio 2005 puede sonar mucho mas sencillo…

Descargar un archivo :
My.Computer.Network.DownLoadFile(ftp://www.ser.com/demo.txt,»c:\Temp»)
Subir un Archivo al Servidor
My.Computer.Network.UploadFile(«C:\Hola.txt»,»ftp://anonymous@servidor/hola.txt»,»anonymous»,»»)

Aunque no sea un ejemplo muy desarrollado, vale para tomar una idea. No dudeis en contactar conmigo si necesitais una ayudita!

Pep,