Private Sub Command1_Click()
'MAPISession1 es un control MAPISession
'rep1 es un control CrystalReport
'MAPIMessages1 es un control MAPIMessages
rep1.ReportFileName = "C:\Informe.rpt" 'Nombre del informe
rep1.Destination = crptToFile
rep1.PrintFileName = "C:\MiDocumento.doc" 'Documento Word en el meto el report
rep1.PrintFileType = crptWinWord
rep1.Action = 1
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.AddressCaption = "donosti@sicsa.es" 'Dirección de correo a la que quiero mandar
MAPIMessages1.MsgIndex = -1
MAPIMessages1.MsgSubject = "ESTE EL EL ASUNTO"
MAPIMessages1.MsgNoteText = "Quiero que aparezca esto en el mensaje, además del report"
MAPIMessages1.AttachmentPathName = "C:\MiDocuemnto.DOC"
MAPIMessages1.AttachmentName = "MiDocuemnto.DOC"
MAPIMessages1.AttachmentIndex = 0
MAPIMessages1.RecipDisplayName = "donosti@sicsa.es"
MAPIMessages1.Send
MAPISession1.SignOff
End Sub
Esto sirve para mandar un fichero por mail, espero que te solucione algo.
Jesús Mª Rodilla Lara
e-mail: donosti@sicsa.es
----------
De: adc
Enviado el: viernes 19 de diciembre de 1997 20:53
Para: vb-esp@ccc.uba.ar
Asunto: RE: (VB-ESP) consulta nueva
Saludos:
Alguien me podria indicar donde conseguir una rutina para enviar un fichero a traves de un modem.
gracias