Imports System

Imports System.Net

Imports System.Net.Mail

Module Email

    Sub Main()

        ‘datos del servidor…

        Dim host As String = “servidor_smtp” ‘ingreso el servidor smtp

        Dim puerto As Integer = 25                    ‘indico en que puerto hay que conectarse al servidor

        ‘datos de la cuenta…

        Dim usuario As String = “username”            ‘indico mi nombre de usuario

        Dim contrasenia As String = “password”        ‘indico mi password

        ‘datos del mensaje en si mismo…

        Dim de As String = “username@yahoo.com.ar”    ‘ingreso el mail de origen (mi cuenta)

        Dim para As String = “cliente@dominio.com.ar” ‘ingreso el mail del destinatario

        Dim asunto As String = “asunto del mensaje”   ‘indico cual es el asunto del mensaje

        Dim cuerpo As String = “cuerpo del mensaje”   ‘escribo el mensaje en si

        Try

            Dim mensaje As MailMessage = New MailMessage(de, para, asunto, cuerpo) ‘creo el mensaje

            Dim clienteSMTP As SmtpClient = New SmtpClient(host, puerto)           ‘creo la conexion con el servidor

            clienteSMTP.UseDefaultCredentials = False                                        ‘no hay que usar las credenciales por defecto

            clienteSMTP.Credentials = New System.Net.NetworkCredential(usuario, contrasenia) ‘hay que usar mis propias credenciales

            clienteSMTP.Send(mensaje) ‘envio el mensaje y listo!

            ‘Aviso que ya lo envié…

            Console.WriteLine(“Mensaje enviado exitosamente.”)

        Catch ex As Exception

            Console.WriteLine(“Ha ocurrido un error: “ + ex.Message)

        Finally

            Console.WriteLine(“Presione ENTER para salir…”)

            Console.ReadLine()

        End Try

    End Sub

End Module

C# .NET

using System;

using System.Net;

using System.Net.Mail;

namespace smtp

{

    class Program

    {

        static void Main(string[] args)

        {

            //datos del servidor…

            string host = “servidor_smtp”; //ingreso el servidor smtp

            int puerto = 25;                        //indico en que puerto hay que conectarse al servidor

            //datos de la cuenta…

            string usuario = “username”;            //indico mi nombre de usuario

            string contrasenia = “password”;        //indico mi password

            //datos del mensaje en si mismo…

            string de = “username@yahoo.com.ar”;    //ingreso el mail de origen (mi cuenta)

            string para = “cliente@dominio.com.ar”; //ingreso el mail del destinatario

            string asunto = “asunto del mensaje”;   //indico cual es el asunto del mensaje

            string cuerpo = “cuerpo del mensaje”;   //escribo el mensaje en si

            try

            {

                MailMessage mensaje = new MailMessage(de, para, asunto, cuerpo); //creo el mensaje

                SmtpClient clienteSMTP = new SmtpClient(host, puerto);           //creo la conexion con el servidor

                clienteSMTP.UseDefaultCredentials = false;                       //no hay que usar las credenciales por defecto

                clienteSMTP.Credentials = new System.Net.NetworkCredential(usuario, contrasenia); //hay que usar mis propias credenciales

                clienteSMTP.Send(mensaje); //envio el mensaje y listo

                //Aviso que ya lo envié…

                Console.WriteLine(“Mensaje enviado exitosamente.”);

            }

            catch (Exception ex)

            {

                Console.WriteLine(“Ha ocurrido un error: “ + ex.Message);

            }

            finally

            {

                Console.WriteLine(“Presione ENTER para salir…”);

                Console.ReadLine();

            }

        }

    }

}

using System.IO;

using System.Collections.Generic;

using System.Text;

namespace JoelTextReWriter

{

    class Program

    {

        static void Main(string[] args)

        {

            string Linea = “”;

            using (StreamWriter sw = new StreamWriter(“archivo_destino.txt”))

            {

                TextReader tr = new StreamReader(“archivo_origen.txt”);

                while ((Linea = tr.ReadLine()) != null)

                {

                    Console.WriteLine(Linea);

                    sw.WriteLine(Linea);

                }

                tr.Close();

            }

        }

    }

}

string[,] AO2ID = new string[,]{{“ACMBC”,“987″},{“AGRG”,“988″},{“PLMR LRG”,“989″},{“RMS”,“990″},{

“AGD PCHN”,“993″},{“AGD SN RQ”,“997″},{“LNDR ATVSD”,“995″},{“CNQ 7A”,“983″},{

“L YSR”,“986″},{“PST HRNNDZ”,“982″},{“R NGR NRT”,“986″},{“CAM 2 – A Sur”,“976″},{

“MGLLNS”,“977″},{“TRR DL FG”,“975″},{“L TRDLL”,“970″},{“L TPR-PST QRG”,“970″}};

<identity impersonate=”true”/>
La identidad sera usuario anonimo (tipicamente IUSR_MACHINENAME) o el usuario autenticado que hace la consulta.

Dim conn As SqlConnection

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 Dim strConn As String
 strConn = "Server = " & Environment.MachineName
 strConn += "\VSdotNET; Database = ; Integrated Security = SSPI;"
 conn = New SqlConnection(strConn)
 conn.Open()
 CreateDataBase()
 CreateClientsTable()
 End Sub

Private Sub CreateDataBase()
 Dim strSQL As String
 strSQL = "if Exists (Select * From master..sysdatabases Where Name = 'VET')"
 strSQL += "DROP DATABASE VET" & vbCrLf & " CREATE DATABASE VET"
 Dim cmd As New SqlCommand(strSQL, conn)
 cmd.CommandType = CommandType.Text
 Try
 cmd.ExecuteNonQuery()
 Catch
 MessageBox.Show("Error Creating DB")
 Finally
 cmd.Dispose()
 End Try
 End Sub

Private Sub CreateClientsTable()
 Me.Text = "Creating Clients Table..."
 Dim strSQL As String = _
 "USE VET" & vbCrLf & _
 "IF EXISTS (" & _
 "SELECT * " & _
 "FROM VET.dbo.sysobjects " & _
 "WHERE Name = 'Clients' " & _
 "AND TYPE = 'u')" & vbCrLf & _
 "BEGIN" & vbCrLf & _
 "DROP TABLE VET.dbo.Clients" & vbCrLf & _
 "END" & vbCrLf & _
 "CREATE TABLE Clients (" & _
 "ID Int NOT NULL," & _
 "LastName NVarChar(20) NOT NULL," & _
 "FirstName NVarChar(20) NOT NULL," & _
 "Address NVarChar(150) NOT NULL," & _
 "City NVarChar(20) NOT NULL," & _
 "ZipCode NVarChar(5) NOT NULL," & _
 "PhoneNumber NVarChar(20) NOT NULL," & _
 "WorkNumber NVarChar(20)," & _
 "CellNumber NVarChar(20)," & _
 "Email NVarChar(50) NOT NULL," & _
 "Balance Money NOT NULL," & _
 "BalanceDate DateTime NOT NULL," & _
 "CONSTRAINT [ID] PRIMARY KEY CLUSTERED" & _
 "(ID))"
 Dim cmd As New SqlCommand(strSQL, conn)
 cmd.CommandType = CommandType.Text
 Try
 cmd.ExecuteNonQuery()
 Catch ex As SqlException
 MessageBox.Show(ex.ToString, "Clients")
 Finally
 cmd.Dispose()
 End Try
 End Sub

Private Sub MakeClientStoredProcedure()
 Dim strSQL As String = _
 "USE VET" & vbCrLf & _
 "IF EXISTS (" & _
 "SELECT * " & _
 "FROM VET.dbo.sysobjects " & _
 "WHERE Name = 'ClientInfo' " & _
 "AND TYPE = 'p')" & vbCrLf & _
 "BEGIN" & vbCrLf & _
 "DROP PROCEDURE ClientInfo" & vbCrLf & _
 "END"
 Dim cmd As New SqlCommand(strSQL, conn)
 cmd.CommandType = CommandType.Text
 Try
 cmd.ExecuteNonQuery()
 cmd.CommandText = "Create Procedure ClientInfo" & vbCrLf & _
 "@ClientID int " & vbCrLf & _
 "AS Select * " & vbCrLf & _
 "FROM VET.dbo.Clients Where ID = @ClientID"
 cmd.ExecuteNonQuery()
 Catch ex As SqlException
 MessageBox.Show(ex.ToString, "Error Creating Stored Procedure")
 Finally
 cmd.Dispose()
 End Try
 End Sub