Hola, debes colocar en el form un MAPISession1 y un MAPIMessages1.
Código:
MAPISession1.SignOn
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = "[email protected]"
.MsgSubject = "Este es el asunto"
.MsgNoteText = "Este es el mensaje."
.SessionID = MAPISession1.SessionID
.ResolveName
.AttachmentIndex = 0
.AttachmentName = "Archivo1.zip"
.AttachmentPathName = "C:\Archivo1.zip"
.AttachmentIndex = 1
.AttachmentName = "Archivo2.xls"
.AttachmentPathName = "C:\Archivo2.xls"
.AttachmentPosition = 0
.AttachmentType = 0
.Send
End With
MAPISession1.SignOff
Espero te sirva.
Saludos