Autor Tema: Adjuntar Archivo A Outlook (Leído 2730 veces)

rodolfo · « **en:** Miércoles 23 de Junio de 2004, 08:32 »

Necesito que cuando le de click a un comand button se abra outlook con un archivo adjunto que yo he definido y q se encuentra en formato excel, de tal forma q solo se escriba el mensaje y se envíe desde outlook a una dirección de correo predeterminada...

Gracias...

Brroz

Hola rodolfo.

Este código serviría para hacer un envío básico de un mensaje con Outlook.

Código: Text

 
Public Function MailTo(Byval Dest As String, Byval Subject As String, Byval Body As String, Optional Byval Adjunto As String) As Boolean
   On Error Goto Err_MailTo
 
   Dim objOLMAIL As Object
   Dim objMAIL As Object
   Dim objATCH As Object
   Dim objDEST As Object   
 
   Set objOLMAIL = CreateObject(&#34;Outlook.Application&#34;)
   Set objMAIL = objOLMAIL.CreateItem(0)
   objMAIL.Subject = Subject
   objMAIL.Body = Body
 
   Set objDEST = objMAIL.Recipients
   objDEST.Add Dest
   If Not objDEST.ResolveAll Then
        MsgBox &#34;Error en destinatario de correo &#34; & Dest & &#34;.&#34;
        GoTo Exit_MailTo
   End If
 
   If Adjunto &#60;&#62; &#34;&#34; Then
      Set objATCH = objMAIL.Attachments
      objATCH.Add Adjunto
   End If
 
   objMAIL.Send
 
   MailTo = True   
 
Exit_MailTo:
   Set ObjDEST = Nothing
   Set ObjATCH = Nothing
   Set objMAIL = Nothing
   Set objOLMAIL = NOthing
   Exit Function
 
Err_MailTo:
   MsgBox Err.Description
   Resume Exit_MailTo
 
End Function
 
 

Suerte.

SoloCodigo

Autor Tema: Adjuntar Archivo A Outlook (Leído 2730 veces)

rodolfo

Adjuntar Archivo A Outlook

Brroz

Re: Adjuntar Archivo A Outlook