Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2004.10.24;
Скачать: [xml.tar.bz2];

Вниз

Почтовая программа   Найти похожие ветки 

 
jek_   (2004-08-17 11:39) [0]

Уважаемые мастера. Подскажите пожалуйста как помимо вызова нового письма, в котором подставлен адрес, вставить в письмо тему и предполагаемый текст. Всё, что я знаю - это
ShellExecute(0, nil,"mailto:delphi@mastak.com",nil,nil,1);


 
Рамиль ©   (2004-08-17 11:50) [1]

mailto:mail@somehost.ru?subject=Тема сообщения&body=Тело сообщения

Только каким боком это относится к Delphi?


 
jek_   (2004-08-17 11:58) [2]

У меня в программе на Delphi вызывается готовое письмо для отправки клиенту.


 
имя   (2004-08-17 12:29) [3]

Удалено модератором


 
jek_   (2004-08-17 12:52) [4]

Проблемка состоит в том, что в тексте письма я не могу поставить знак вопроса например. В готовом письме он действует как разделитель.


 
Рамиль ©   (2004-08-17 13:13) [5]


> тексте письма я не могу поставить знак вопроса

Почему?

ShellExecute(0, nil,"mailto:mail@somehost.ru?subject=Тема сообщения&body=Ты где? Привет",nil,nil,1);

или я недопонимаю...


 
jek_   (2004-08-17 14:28) [6]

Извиняюсь - торможу !


 
Erik1   (2004-08-17 15:27) [7]

А может лучше нормально писмо отправим, с помощю SMTP?


 
Дмитрий Ботвин   (2004-08-17 15:36) [8]

Вообще отправить через Outlook можно так:

uses
  ComObj;

procedure TForm1.Button16Click(Sender: TObject);
const
  olMailItem = 0;
  olByValue = 1;
var
  OutlookApp, MailItem, MyAttachments: OLEVariant;
begin
  try
    OutlookApp := GetActiveOleObject("Outlook.Application");
  except
    OutlookApp := CreateOleObject("Outlook.Application");
  end;
  try
    MailItem := OutlookApp.CreateItem(olMailItem);
    MailItem.Recipients.Add("Почтовый адресс");
    MailItem.Subject := "Subject";
    MailItem.Body    := "Message";
    myAttachments    := MailItem.Attachments;
    myAttachments.Add("C:\temp.txt", olByValue, 1, "Имя присоединения");
    MailItem.Send;
  finally
    myAttachments := VarNull;
    OutlookApp    := VarNull;
  end;
end;

Можешь вместо Outlook поставить Outlook Express и отправляй
наздоровье. У меня точно работало....


 
jek_   (2004-08-17 19:25) [9]

А как сделать, чтобы в текст писма можно было вставить форматированный например в Ворде текст?


 
Дмитрий Ботвин   (2004-08-18 07:52) [10]

В строку MailItem.Body := "Message" вместо "Message" вставь
текст, полученный через OLE-доступ к Word-у. Если не знаешь как
пиши, вместе сообразим как-нибудь...


 
ИМХО ©   (2004-08-18 22:57) [11]

MailItem.HTMLBody



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

Форум: "Сети";
Текущий архив: 2004.10.24;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.055 c
14-1097001087
lipskiy
2004-10-05 22:31
2004.10.24
ХЕЛП! Не могу задать иконку в консольном приложении!


1-1097574502
Роман
2004-10-12 13:48
2004.10.24
Извлечение ресурсов из dll


1-1097402705
acsoft
2004-10-10 14:05
2004.10.24
Не вкладывать в EXE иконку.


14-1096877390
gn
2004-10-04 12:09
2004.10.24
я болдею с бенигейтси чесное слово


11-1081782130
ГОСТЬище
2004-04-12 19:02
2004.10.24
Два таймера (независимо), да красивый текст.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский