2184 / 1254 / 143
Регистрация: 28.04.2010
Сообщений: 4,592
1

Отправка письма через outlook

13.09.2010, 19:26. Показов 13549. Ответов 8
Метки нет (Все метки)

Нащел в нете пример:
http://delphi.about.com/cs/adp... 0800_3.htm

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const olMailItem = 0;
var Outlook: OLEVariant;
     MailItem: Variant;
begin
  try
   Outlook:=GetActiveOleObject('Outlook.Application') ;
  except
   Outlook:=CreateOleObject('Outlook.Application') ;
  end;
  MailItem := Outlook.CreateItem(olMailItem) ;
  with MailItem do begin
   Recipients.Add('delphi.guide@about.com') ;
   Subject := 'Subject: Outlook Mail From Delphi';
   Body := 'Welcome to my homepage:
[url]http://delphi.about.com';[/url]
   Attachments.Add('C:\Windows\Win.ini') ;
   Send;
  end; {with}
   Outlook := Unassigned;
end;
но он не хочет работать ((
ругается на строке с адресом отправки
Recipients.Add('delphi.guide@about.com') ;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.09.2010, 19:26
Ответы с готовыми решениями:

Отправка письма
Народ хотел написать программу но понял что пример с почтой у меня не получится1 В общем есть...

Отправка письма
Пытаюсь отправить письмо на почту: procedure sendinfo(Sender: TObject); var inf:tstrings;...

Отправка письма на почту
как реализовать? Перелазил инет половина не работает) Помогите плз!

Отправка письма на e-mail
Есть ли другой, более быстрый спсоб отравки письма на почту кроме этого ...

8
КотЪ
219 / 219 / 60
Регистрация: 26.05.2009
Сообщений: 688
14.09.2010, 19:45 2
И что пишет?
0
2184 / 1254 / 143
Регистрация: 28.04.2010
Сообщений: 4,592
14.09.2010, 19:47  [ТС] 3
уж не помню (( запусти попробуй у себя
0
КотЪ
219 / 219 / 60
Регистрация: 26.05.2009
Сообщений: 688
14.09.2010, 21:12 4
Добавь в uses модуль ComObj
Тогда код компилируется в немного исправленном виде:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const
    olMailItem = 0;
  var
    Outlook: OLEVariant;
    MailItem: Variant;
  begin
    try
      Outlook:= GetActiveOleObject('Outlook.Application');
    except
      Outlook:= CreateOleObject('Outlook.Application');
    end;
    MailItem:= Outlook.CreateItem(olMailItem);
    MailItem.Recipients.Add('delphi.guide@about.com');
    MailItem.Subject:= 'Subject: Outlook Mail From Delphi';
    MailItem.Body:= 'Welcome to my homepage:[url]http://delphi.about.com[/url]';
    MailItem.Attachments.Add('C:\Windows\Win.ini');
    MailItem.Send;
    Outlook := Unassigned;
  end;
ЗЫ. На правильность работы не проверял...
0
2184 / 1254 / 143
Регистрация: 28.04.2010
Сообщений: 4,592
14.09.2010, 21:25  [ТС] 5
само собой я добавлял ComObj и он у мене компилировался, ошибка именно при отправке
0
КотЪ
219 / 219 / 60
Регистрация: 26.05.2009
Сообщений: 688
14.09.2010, 22:43 6
А у меня прекрасно работает при запущенной Outlook, только нужно в почтовике подтверждать отправку со сторонней программы.
Проверь на других компьютерах.
0
2184 / 1254 / 143
Регистрация: 28.04.2010
Сообщений: 4,592
14.09.2010, 22:45  [ТС] 7
ааа. А я пробовал с не запущенном аутлуком
0
DmitryR
26.05.2011, 17:15 8
anonimus, Получилось решить проблему? у меня тоже самое происходит. Outlook 2010
если запущен - работет
нет - выдает ошибку "Operation aborted" на строке Recipients.Add(...)
2184 / 1254 / 143
Регистрация: 28.04.2010
Сообщений: 4,592
26.05.2011, 17:19  [ТС] 9
DmitryR, я больше и не пытался, забил ))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.05.2011, 17:19
Помогаю со студенческими работами здесь

Отправка письма на почту со вложением
Всем привет! Хочу написать программу для отправки письма со вложением по 1 кнопке: Как это можно...

Отправка письма Lotus из Delphi
Добрый день ув.форумчане. Подскажите можно ли отправлять письмо по лотусу из программы написанной...

Отправка письма списку адресатов
Привет, как отправить письмо списку, я в мемо загрузил список мыл, теперь нужно по ним разослать...

Не могу отправить почту через Outlook
Не могу отправить почту средствами Outlook. Для отправки использую следующий код: procedure...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru