Hola a todos,
Necesito que alguien me envié un procedimiento o rectifique éste para poder
enviar mensajes desde el Visual Basic.
El procedimiento que yo utilizo es este:
Sub enviar(fichero As String, direccion As String, ndespues As String, asunto)
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.AddressCaption = direccion 'Donde lo envió
MAPIMessages1.MsgIndex = -1
MAPIMessages1.MsgSubject = asunto 'el asunto del mensaje
MAPIMessages1.MsgNoteText = "" 'el texto del mensaje (no lo utilizo)
MAPIMessages1.AttachmentPathName = fichero
MAPIMessages1.AttachmentName = ndespues 'nombre del Attachment
MAPIMessages1.AttachmentIndex = 0
MAPIMessages1.RecipDisplayName = direccion
MAPIMessages1.Send
MAPISession1.SignOff
End Sub
Lo que necesito es enviar un Attachment pero este procedimiento me
devuelve el siguiente error (el Eudora Pro que es el que tengo como
predeterminado):
Error reading from network
Cause: socket operation on non-socket(10038)
Si hago click en el botón de aceptar el error desaparece y envía el fichero
pero cuando va enviar el otro hace lo mismo.
Gracias por anticipado,
______________________________________________
| AA RRRRRR II EEEEEEE LL |
| A A R R II EE LL |
| A A RRRRRR II EEEE LL |
| AAAAAAAA R R II EE LL |
| A A R R II EEEEEEE LLLLLLLL |
|_____________________________________________|
|| ||
*------------------------------------*
| Ariel Mendoza Libran |
| Direccio'n Nacional ANAP |
| Calle 13 entre H e I Habana, Cuba |
| E-mail:prod2@anap.org.cu |
| Telf. 32-4541 al 45 ext 272 (Job) |
| Telf. 3-4898 (Home) |
*------------------------------------*