Hola foreros!!!
resulta que estoy programando un boton en un excel para que abra el outlock y que ese mismo excel se ponga en archivos adjuntos... alguna idea????
Por ahora lo que tengo es un poco chapuza, he exo en el mismo excel un formulario donde relleno todos los campos (destinatario, asunto y mensaje) y despues programo la carga del excel, el código es el siguiente
Private Sub ENVIAR_Click()
'Variables para utilizar los objetos del MAppi
Dim o_mapi_session As MSMAPI.MAPISession
Dim o_mapi_message As MSMAPI.MAPIMessages
On Error GoTo errSub
Set o_mapi_session = New MSMAPI.MAPISession
With o_mapi_session
.LogonUI = False
' si requiere autentificación
'################################3
'.username = "Nombre de usuario"
'.password = "El password"
.SignOn
End With
'Nueva instancia del mapi
Set o_mapi_message = New MSMAPI.MAPIMessages
With o_mapi_message
.SessionID = o_mapi_session.SessionID
.Compose 'Comienza a crear el correo
.RecipIndex = 0
'.RecipDisplayName = opcional
'Dirección del destinatario
.RecipAddress = TextBox1
.RecipType = mapToList
.AddressResolveUI = False
.MsgSubject = TextBox2 'Asunto del mail
.MsgNoteText = TextBox3 'Cuerpo del mensaje
.AttachmentIndex = 0 ' numero del anexo, 0,1,2,3....
.AttachmentName = "manualvba.zip"
.AttachmentPathName = "C:\Documents and Settings\jtorricp\FT-E77ED1E4BDC0\Bureau\EBURO\manualvba.zip"
.Send
End With
o_mapi_session.SignOff
Exit Sub
errSub:
MsgBox Err.Number & " Descripción del error: " & Err.Description
Exit Sub
End Sub
Cuando pulso el botón me dice que "error 32002, ocurrio un fallo no determinado", teneis alguna idea de que puede ser?
