RE: Re Agente Envio Correo
Responder

Comentarios:

      Te pongo un ej pero como dice Fernando te lo va a tomar el directorio desde donde lo corras:
      Dim s As New notesSession
      Dim db As notesDataBase
      Dim docMail As notesDocument
      Dim rtitem As NotesRichTextItem
      Dim object As NotesEmbeddedObject
      Set db = s.currentDataBase
      Set docMail = New notesDocument(db)
      docMail.form = "Memo"
      Set rtitem = New NotesRichTextItem( docMail, "Body" )
      Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", "RUTA DEL ARCHIVO")
      docMail.sendTo = Direccion deseada
      docMail.send( False)
Respuestas


Re Agente Envio Correo

Te pongo un ej pero como dice Fernando te lo va a tomar el directorio desde donde lo corras:
Dim s As New notesSession
Dim db As notesDataBase
Dim docMail As notesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = s.currentDataBase
Set docMail = New notesDocument(db)
docMail.form = "Memo"
Set rtitem = New NotesRichTextItem( docMail, "Body" )
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", "RUTA DEL ARCHIVO")
docMail.sendTo = Direccion deseada
docMail.send( False)

durzodam 26/12/2007 20:56:29 Responder

Re: Agente Envio Correo

Hola,
Es posible hacer un Agente el cual me tome uno o varios archivos de un Subdirectorio y melo envia a una direccion determinada?
Alguien tiene elgun ejemplo?
Saludos,

Anonymous 11/11/2017 10:45:49 PM Responder

Re: Re Agente Envio Correo

Te pongo un ej pero como dice Fernando te lo va a tomar el directorio desde donde lo corras:
Dim s As New notesSession
Dim db As notesDataBase
Dim docMail As notesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = s.currentDataBase
Set docMail = New notesDocument(db)
docMail.form = "Memo"
Set rtitem = New NotesRichTextItem( docMail, "Body" )
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", "RUTA DEL ARCHIVO")
docMail.sendTo = Direccion deseada
docMail.send( False)

Anonymous 11/11/2017 10:43:49 PM Responder


Web Desarrollada por Juan Carlos Trigo Díaz
Optimizado para: 1024 x 768 pixels - Explorer > 6 Copyright © 2008