martes, 11 de mayo de 2010

Como Enviar Correos Con Una Cuenta Gmail Gambas

Hola amigos aquí les dejo un programa la cual envía correos a partir de una cuenta gmail

Con este programas podrás enviar correos con tu cuenta gmail. Para ello debes instalar los paquetes mailutils
ssmtp

sudo apt-get install mailutils ssmtp

Una vez instalado los paquetes debes configurar el archivo ssmtp.conf de esta menera
sudo gedit /etc/ssmtp/ssmtp.conf

Se debe configurar de esta manera. Donde "cuenta" es el usuario de gmail y "clave_cuenta" la contraseña de la cuenta.

root="cuenta"@gmail.com

mailhub=smtp.gmail.com:587

hostname="cuenta"@gmail.com

FromLineOverride=YES

UseSTARTTLS=YES

AuthUser="cuenta"@gmail.com

AuthPass="clave_cuenta"

Ahora debes hacer una prueba para ver si funciona.
echo “Hola Amigo, Visita www.gambas-es.org , http://help-gambas.blogspot.com/” | mail -s “Saludo Amigo” cuenta@dominio.com

Se debe cambiar cuenta@dominio.com por el receptor del mensaje!!

Aquí hice un ejemplo en gambas para enviar correos

Descargar Ejemplo







Saludos

viernes, 7 de mayo de 2010

Como Crear Objetos por código

Alguna vez se han preguntado como crear un nuevo textbox sin que yo lo agarre desde la Caja de herramientas. Bueno en este mini tutorial veremos como crear un nuevo objeto o control desde la ventana de Código


El código esta en el evento Open del formulario ya que quiero mostrar los controles cuando se abra el formulario

PUBLIC SUB Form_Open()
DIM label1 AS NEW Label(FMain) 'Declaramos label1 como un nuevo label en el formulario “FMain”
DIM listBox1 AS NEW ListBox(FMain)
DIM ComboBox1 AS NEW ComboBox(FMain)
'Declaramos label1 como un nuevo label en el formulario “FMain”
'Ojo ME Significa el formulario que estamos actualmente en este caso "FMain"
DIM textbox1 AS NEW TextBox(ME)
DIM TableView1 AS NEW TableView(ME)
DIM Button1 AS NEW Button(ME)

'Crear un Nuevo Label
label1.X = 110 ' Poción en el eje de las x del control
label1.Width = 250 ' Ancho del control
label1.Height = 50 'Alto del control
label1.Font = Font["Arial, +14"] ' Tipo de Letra
label1.Text = "Como Crear Controles" ' Texto a mostrar

'Crear un Nuevo ListBox
listBox1.X = 25 ' Poción en el eje de las x del control
listBox1.Y = 50 ' Poción en el eje de las y del control
listBox1.Width = 150 'Ancho del Control
listBox1.Height = 200 ' Alto del Control
listBox1.Add("listBox1") 'Agrega un nuevo Elemento al ListBox

'Crear un Nuevo ComboBox
ComboBox1.X = 200
ComboBox1.Y = 50
ComboBox1.Width = 200
ComboBox1.Height = 25
ComboBox1.Text = "ComboBox1"

'Crear un nuevo TextBox
textbox1.X = 200
textbox1.Y = 85
textbox1.Width = 200
textbox1.Height = 25
textbox1.Text = "TextBox1"

'Crear un nuevo TableView
TableView1.X = 200
TableView1.Y = 120
TableView1.Width = 200
TableView1.Height = 100
TableView1.Header = GridView.Horizontal
TableView1.Columns.Count = 2
TableView1.Columns[0].Text = "Columna 1"
TableView1.Columns[0].Width = 100
TableView1.Columns[1].Text = "Columna 2"
TableView1.Columns[1].Width = 100
TableView1.Rows.Count = 1
TableView1.Mode = Select.Single
TableView1[0, 0].Text = "Fila 1"
TableView1[0, 1].Text = "Fila 1"

'Crear un nuevo Button
Button1.X = 200
Button1.Y = 230
Button1.Height = 50
Button1.Width = 200
Button1.Text = "Button1"
END

Imágenes

Free Image Hosting at www.ImageShack.us


Free Image Hosting at www.ImageShack.us

Ahora me imagino que te preguntas como puedo crear eventos a los controles..!! Bueno en este segundo ejemplo veremos como crearles eventos a “Uno de Ellos” y utilizar un solo evento para varios controles.

PUBLIC SUB Form_Open()
'Declaramos label1 como un nuevo label en el formulario “FMain”
'Lo Agrupamos a la Subrutina cnombre
DIM label1 AS NEW Label(FMain) AS "cnombre"
'Lo Agrupamos a la Subrutina cnombre
DIM textbox1 AS NEW TextBox(ME) AS "cnombre"
'Lo Agrupamos a la Subrutina cnombrebutton
DIM Button1 AS NEW Button(ME) AS "cnombrebutton"

'Crear un Nuevo Label
label1.X = 110 ' Poción en el eje de las x del control
label1.Width = 250 ' Ancho del control
label1.Height = 50 'Alto del control
label1.Font = Font["Arial, +14"] ' Tipo de Letra
label1.Text = "Como Crear Controles" ' Texto a mostrar

'Crear un nuevo TextBox
textbox1.X = 220
textbox1.Y = 70
textbox1.Width = 200
textbox1.Height = 25
textbox1.Text = "TextBox1"

'Crear un nuevo Button
Button1.X = 10
Button1.Y = 60
Button1.Height = 50
Button1.Width = 200
Button1.Text = "Button1"
END

'Hacemos una Subrutina “cnombre” con el evento Doble Click “DblClick”
PUBLIC SUB cnombre_DblClick()
' LAST Devuelve el ultimo objeto que se uso,
' Al darle doble click “Click” al objeto Button1 devolverá Button1
' .Text Especifica que se cambiara la propiedad Text de ese control
LAST.Text = InputBox("Escriba el Nombre a Cambiar")
END

'Hacemos una Subrutina “cnombrebutton” con el evento Click “Click”
PUBLIC SUB cnombrebutton_Click()
LAST.Text = InputBox("Escriba el Nombre a Cambiar")
END

Al Pulsar Algún Control o Objetos agrupado por la subrutina y el evento, se producirá las instrucciones

Imágenes

Free Image Hosting at www.ImageShack.us


Free Image Hosting at www.ImageShack.us


Free Image Hosting at www.ImageShack.us


Free Image Hosting at www.ImageShack.us


Free Image Hosting at www.ImageShack.us


Descargar Ejemplos