* Create the session objSession = CREATEOBJECT("mapi.session") * Create a Macro to specify the profile name (profile = "Microsoft Outlook") MMACMD = 'OBJSESSION.LOGON'+IIF(LEN(MPROFNAME)>0,'("'+MPROFNAME+'")',"") &MMACMD * Create the e-mail objMessage = objSession.Outbox.Messages.Add objMessage.Subject = "BCC" *Add the attachment objMessage.Attachments.Add("bcc.pgp", 0, 1, "c:\cfc\bcc.pgp") *Add the Recipient objRecip = objMessage.Recipients.Add(mmailto) objRecip.Resolve *Send it objMessage.Send *Clean up objSession.Logoff RELEASE objRecip, objMessage, objSessionHelp!