Envio de mail desde VB
Publicado por Wolf_x (14 intervenciones) el 04/09/2002 18:09:31
Que tal comunidad,
Necesito que desde mi apliacion de VB en alguna pantalla pueda enviar correo. Yo manejo el siguiente codigo...
Private Sub btnMail_Click()
Dim txtPara As String, txtConCopia As String, txtAsunto As String, txtCuerpo As String, txtAdjunto As String, Stext As String
txtPara = "mailto:[email protected]"
txtConCopia = "[email protected]"
txtAsunto = "&Subject=Liquidacion Remuneraciones"
txtCuerpo = "&Body=Señores xxxx S.A., ajunto base de datos de Liquidación de Remuneraciones"
txtAdjunto = "&Attach=" & Chr(34) & "c:\my document\afgan1.jpg" & Chr(34)
Stext = txtPara & txtConCopia & txtAsunto & txtCuerpo & txtAjunto
Call ShellExecute(Me.hwnd, vbNullString, Stext, vbNullString, "C:\", SW_SHOWNORMAL)
End Sub
ShellExecute: Me permite abrir la aplicacion de correo predeterminado (OutlLook) Todo lo hace bien pero no puedo atachar el archivo.
Alguien me puede ayudar por q no me atacha el archivo o q debo de hacer para q realize esta actividad.
Saludos,
Necesito que desde mi apliacion de VB en alguna pantalla pueda enviar correo. Yo manejo el siguiente codigo...
Private Sub btnMail_Click()
Dim txtPara As String, txtConCopia As String, txtAsunto As String, txtCuerpo As String, txtAdjunto As String, Stext As String
txtPara = "mailto:[email protected]"
txtConCopia = "[email protected]"
txtAsunto = "&Subject=Liquidacion Remuneraciones"
txtCuerpo = "&Body=Señores xxxx S.A., ajunto base de datos de Liquidación de Remuneraciones"
txtAdjunto = "&Attach=" & Chr(34) & "c:\my document\afgan1.jpg" & Chr(34)
Stext = txtPara & txtConCopia & txtAsunto & txtCuerpo & txtAjunto
Call ShellExecute(Me.hwnd, vbNullString, Stext, vbNullString, "C:\", SW_SHOWNORMAL)
End Sub
ShellExecute: Me permite abrir la aplicacion de correo predeterminado (OutlLook) Todo lo hace bien pero no puedo atachar el archivo.
Alguien me puede ayudar por q no me atacha el archivo o q debo de hacer para q realize esta actividad.
Saludos,
Valora esta pregunta
0