Enviar Correo desde vb usando el outlook express hola a todos!
tengo un programa que genera un fichero en pdf, el cual quiero poder enviar por correo desde el outlook.
es decir, que dandole a un boton me abra el outlook con la direccion de correo del destinatario, el asunto, el mensaje y además ese fichero pdf adjunto.
Ya ha conseguido poner la direccion del destinatario, el asunto y el mensaje, pero no consigo poner el archivo adjunto.
aquí pongo la sentencia que uso:
Public Declare Function GetActiveWindow Lib "user32" () As Long
Public Function EnviarEmail(Direccion As String)
ShellExecute GetActiveWindow(), "Open", "mailto:" & Direccion, "mailto:" & Direccion, 0&, 1
End Function
EnviarEmail ("correo@destino.net?subject=Hola!&body=Hola, que tal") |