Як програмно відправити email.
Як програмно відправити email через стандартну пошту.
Ну типу ShellExecute (Handle, "OPEN", "mailto: [email protected]", nil, nil, SW_SHOWMAXIMIZED)
Тільки мені треба туди ще аттачменті зробити, а ще краще, щоб тіло листа було html і включало в себе картинку.
Через ShellExecute () не можна.
Дивно, чому сюди, а не в "Мережі".
Використовуй Фастнет або Інду.
procedure TSpamForm.SendEMail (QFrom, QSubject, QBody, QFromName: String);
begin
With SMTP.PostMessage do
begin
ToAddress.Clear;
ToAddress.AddStrings (ToEMailMemo.Lines);
Subject: = QSubject;
Body.Clear;
Body.Append (QBody);
FromAddress: = QFrom;
FromName: = QFromName;
end;
Про вкладення говорити не буду - не Пробував.
Візьми створи додаток MDI або SDI стандартним майстром. Побачиш там кнопку "відправити лист" і подивися код, який там настрочить майстер
Хотів теж задати таке питання, а тут дивлюся - є вже. Спробував MDI в 6м Дельфі - немає такої кнопки "відправити лист"
Господа програмісти, а що ж тут складного? Киньте компонент NMSMTP на форму, # 032; подивіться по ньому хелп, там все властивості і методи описані, з яких потрібно використовувати максимум не більше десятка ..
Це питання вже задовбав. Чи не можна включити його в FAQ?
Протокол Mailto має наступну форму.
Всі дані вказані в параметрах повинні бути так звані Internet safe
characters. Іспользуййте% 0d для символу переведення рядка (LF),% 20 для пропуску та
так далі.
приклад:
Народ, одна лажа: якщо використовувати компонент, то при ошибке підключення виникає ісключініе, як перехопити його.