Aca te mando el codigo que yo utilizo para enviar archivos adjuntos con el
mail.
Tenes que agregar el Componente Microsoft MAPI
On Error GoTo ErrorPreparar
With MAPISession1
.DownLoadMail = False 'para que no comience a decargar los mails
.LogonUI = True
.SignOn
.NewSession = False ' para que no abra otro cliente de correo si
ya tenes uno abierto
MAPIMessages1.SessionID = MAPISession1.SessionID
End With
With MAPIMessages1
.Compose
.RecipAddress =
[email protected] 'direccion de correo
.AddressResolveUI = True
.ResolveName
.MsgSubject = asunto del mensaje
.MsgNoteText = "" ' aca iria el cuerpo del mensaje
.AttachmentName ="oficina.mdb" nombre del archivo a adjuntar"
.AttachmentPathName = App.Path & "\oficina.mdb" 'path completo del
archivo a adjuntar
.Send False ' para que no lo envie ahora
End With
MAPISession1.SignOff 'cierra la sesion
End If
Exit Sub
ErrorPreparar:
If Err.Number = 32014 Then
MsgBox "Direccion no valida", vbOKOnly, "Aviso"
End If
IMPORTANTE!!: asegurate de que el archivo a adjuntar este NO este en uso de
lo contrario no funciona.