Nueva Respuesta
Asunto:
Foto
Usuario:
Fecha:
11/23/2019 02:25:31 AM
Versión:
Guardar
Tags:
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)
Adjuntar Imagen:
Web Desarrollada por
Juan Carlos Trigo Díaz
Optimizado para: 1024 x 768 pixels - Explorer > 6 Copyright © 2008
Inicio
|
Codigos NotesRing
|
AulaDomino