local loMessage, loRecipient, loAttachment loMessage = .oMAPISession.Outbox.Messages.Add() loRecipient = loMessage.Recipients.Add() loRecipient.Name = .cRecipientName loRecipient.Address = "SMTP:" + .cRecipientEMail loRecipient.AddressEntry.Type = "SMTP" loRecipient.AddressEntry.Address = .cRecipientEMail loRecipient.Resolve() loMessage.Subject = alltrim(.txtSubject.Value) loMessage.Text = .edtMessage.Value loAttachment = loMessage.Attachments.Add() loAttachment.Type = 1 && attached * removed the quotes - new version of outlook/CDO doesn't like them * need to put quotes around the source because it may contain spaces * putting them around the name does not seem to be required, but we'll do it for completeness loAttachment.Source = .lstAttachments.list(lnAttachment) loAttachment.Name = justfname(.lstAttachments.list(lnAttachment))Sending the same attachments manually from outlook doesn't result in any corruption.