Возникла потребность отправлять почту программным путем но не с учетной записи которая используется по умолчанию а с другой. Посмотрел те обекты которые есть билдере для работы с почтой но возможности проставить адрес отправителя не нашел. Попробовал написать свою обертку вокруг mapi получился следующий код

function ulong MAPISendMail( Ulong lhSession, &
ULONG ulUIParam, &
/*ref*/ sMapiMessage lpMessage, &
ulong flFlags, &
ULONG ulReserved ) library "mapi32.DLL"

/*
Отправка мыла все нужные поля должны быть заполнены
*/
sMapiMessage MapiMessage
sMapiRecipDesc Sender,PRecip, Recipients
sMapiFileDesc PFiles, Attachments

integer i
ulong MError
uint Apphandle

Apphandle = ApplicationHandle
MapiMessage.nRecipCount = 1 //все будем делать для одного получателя
// если нужно будет для нескольких то потом допишем
MapiMessage.ulReserved = 0
// Устанавливаем поле Subject:
MapiMessage.lpszSubject = Subject
// ... Body:
MapiMessage.lpszNoteText = MailText
SetNull(MapiMessage.lpszMessageType)
SetNull(MapiMessage.lpszDateReceived)
SetNull(MapiMessage.lpszConversationID)
MapiMessage.flFlags = 0
// и отправителя: (MAPI_ORIG)
Sender.ulReserved = 0
Sender.ulRecipClass = 0//MAPI_ORIG
Sender.lpszName = FromName
Sender.lpszAddress = FromAdress
Sender.ulEIDSize = 0
SetNull(Sender.lpEntryID)
MapiMessage.lpOriginator = Sender
PRecip = Recipients
//установим получателя письма: (MAPI_TO)
PRecip.ulReserved = 0
PRecip.ulRecipClass = 1//MAPI_TO
PRecip.lpszName = TOAdr
PRecip.lpszAddress = 'SMTP:' + TOAdr
PRecip.ulEIDSize = 0
SetNull(PRecip.lpEntryID)
MapiMessage.lpRecips = PRecip
// Теперь обработаем прикреплённые к письму файлы:

if AttachedFileName <> '' then

MapiMessage.nFileCount = 1
PFiles = Attachments

// ... и имя, отображаемое на дисплее:
Attachments.lpszFileName = DisplayFileName
Attachments.ulReserved = 0
Attachments.flFlags = 0
// Положение должно быть -1, за разьяснениями обращайтесь в WinApi Help. }
Attachments.nPosition = -1
SetNull(Attachments.lpFileType)
MapiMessage.lpFiles = Attachments

else
MapiMessage.nFileCount = 0
// setnull(MapiMessage.lpFiles)
end if

if ShowDialog then
MError = MapiSendMail(0, AppHandle, MapiMessage, /*MAPI_DIALOG 8 */&
/*or MAPI_LOGON_UI 1 or 2MAPI_NEW_SESSION*/11, 0)
else
MError = MapiSendMail(0, AppHandle, MapiMessage, 0, 0)
end if
return MError

но этот код получился не рабочим вываливается с ошибкой
Исключение в приложении:
Прил.: e:\pb80\BUILD\NT\PB80.EXE (pid=1408)
Время: 13.02.2004 @ 10:51:31.175
Номер: c0000005 (нарушение прав доступа)
я так понимаю ошибка в передачи параметров api функции может кто подскажет в чем ошибка или как можно решить поставленную задачу другими методами (может какая библиотека для работы с почтой есть)?

Спасибо за помощь попробовал http://www.vpro.ru/download.htm классно работает. Только вот ради интереса решил попробовать и CDO и застрял на том что не знаю как билдере обратиться к элементу колекции т.е строчка MailConfig.Fields.Item(cdoSMTPServer)='192.168.1.10' имеет неправильный синтаксис а как же будет правильно?