Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.17;
Скачать: CL | DM;

Вниз

send mail   Найти похожие ветки 

 
baracuda   (2003-05-12 16:47) [0]

Добрый день! Помогите решить проблемку.
Отправляю почту через MS OUTLOOK
Если без аттачмента то отправка идет на ура
если с аттачментом то ругается "myAttachments not supported by automation object".
В чем траблы?
Заранее благодарен.

procedure TForm1.send;
var
myItem,myAttachments,myAttachment:Variant;

begin
if vartype(oleoutlook)<>vardispatch then
OleOutlook:=CreateOleObject("Outlook.application");
myitem:=OleOutlook.createitem(olmailitem);
myitem.display;
myitem.To:="vasya@pupkin.net";
myitem.subject:="test my mail";
myitem.body:="testing my mail";
myAttachments:=myitem.myAttachments;
myAttachment:=myAttachments.Add("c:\test.log");
myitem.send;
OLEOutlook:=Unassigned;
end;


 
baracuda   (2003-05-13 16:27) [1]

неужель никто ничего не подскажет. :(((((

может оутлук не дает автоматически добавлять файл?




Страницы: 1 вся ветка

Текущий архив: 2003.07.17;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.017 c
3-55412
Evgenij Kardash
2003-06-22 19:18
2003.07.17
Запрос по двум таблицам


1-55560
SkyRanger
2003-07-04 08:35
2003.07.17
Бинарное дерево


14-55725
Dmitriy O.
2003-07-02 13:43
2003.07.17
Как в Delphi снять сразу все точки прерывания как в VBA.


8-55664
Makhanev A.S.
2003-02-19 21:19
2003.07.17
USLT фрейм ID3v2-тэга


14-55849
hex_for_gold
2003-06-30 00:42
2003.07.17
Нужно срочно пример простейшего чата на IdTCPServer and IdTCPclie