RE: auxilio ayuda con outlook
aqui te mando el codigo necesario para mandar un mail con adjunto a cuarquier dirccion, dejame decirte primero que tienes que hacer la referencia.....
Menú proyecto->Referencias-> y añades Microsoft outlook 10.0 object library y microsoft outlook view control
Dim m_OutLook As Outlook.Application
* Creamos un Objeto tipo Mail
Dim objMail As Outlook.MailItem
* Inicializamos nuestra apliación OutLook
Set m_OutLook = New Outlook.Application
* Creamos una instancia de un objeto tipo MailItem
Set objMail = m_OutLook.CreateItem(Outlook.OlItemType.olMailItem )
* Asignamos las propiedades a nuestra Instancial del objeto
* MailItem
objMail.To = "tarara@tarantaran.com"
objMail.Subject = "Asunto"
objMail.Body = "Body"
objMail.Importance = olImportanceHigh
objMail.AutoForwarded = True Auto enviado
objMail.ReadReceiptRequested = True
objMail.Attachments.Add ("C:1.txt"

)
objMail.ReadReceiptRequested = True
* Enviamos nuestro Mail y listo!
objMail.Send
* Desplegamos un mensaje indicando que todo fue exitoso
MsgBox "Mail Enviado", vbMsgBoxRight = vbOK, "Integración con OutLook"
Finally
Set m_OutLook = Nothing</TR>