Текущий архив: 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
