send mail [D6, NT4]
baracuda © (2003-05-12 16:47:00)
Добрый день! Помогите решить проблемку.
Отправляю почту через 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:00) [1]
неужель никто ничего не подскажет. :(((((
может оутлук не дает автоматически добавлять файл?
Наверх 
ЧАТ |
Орешник |
|
