Internet

← →
inkarik © (2004-09-14 06:18) [0]

Всем привет!
Может мне кто-нибудь сказать как отправлять файлы *.Html на электронный адрес

← →
Defunct © (2004-09-14 06:25) [1]

1. Создать новое сообщение в аутлуке;
2. в строке "Кому" написать электронный адрес;
3. приаттачить html к письму в аутлуке;
4. нажать кнопку "отправить"

Горе ты мое аутлуковое (C) народная мудрость.

← →
inkarik © (2004-09-14 06:51) [2]

У меня проблема. Необходимо находящийся на ЖД html-файл, являющийся уведомлением пользователя интернета об оплате, отправить на электронный адрес пользователя.

← →
сигишник (2004-09-14 07:09) [3]

В чем проблнема вообще не понимаю! Атачмент и все!

← →
inkarik © (2004-09-14 07:34) [4]

У меня проблема. Необходимо находящийся на ЖД html-файл, являющийся уведомлением пользователя интернета об оплате, отправить на электронный адрес пользователя. При этом всё это нужно сделать в Delphi 7.
Я извиняюсь за столь непонятное объяснение и сложной вопрос, но всё серьёзно.

← →
Anatoly Podgoretsky © (2004-09-14 07:37) [5]

Это разве проблема, берешь и отправляешь, приложеных к Дельфи примеров вполне достаточно для программиста.

← →
inkarik © (2004-09-14 07:49) [6]

Проблема, т.к. приложеных к Дельфи примеров нет.

← →
inkarik © (2004-09-14 08:56) [7]

← →
FoxBox (2004-09-14 09:49) [8]

Компоненты дельфийские по отправке писем через smtp-сервера:
Закладка "Indy Clients"/компонент idSMTP

или через почтовую программу, установленную на станции (через API)

uses mapi ....... procedure... var ... session:integer; mailmessage:TMapiMessage; recipient:TMapiRecipDesc; attachement:TMapiFileDesc; .... begin .... mapilogon(0,"My Profile", nil, MAPI_NEW_SESSION, 0, @session); // Задаем отправителя recipient.ulRecipClass:=MAPI_TO; recipient.lpszName:=""; recipient.lpszAddress:=pchar(email); recipient.ulEIDSize:=0; recipient.lpEntryID:=nil; attachement.ulReserved:=0; // Задаем аттачмент attachement.lpszPathName:=pchar(attachementedit.text); attachement.lpszFileName:=pchar(attachementedit.text); attachement.lpFileType:=nil; // Задаем заголовок mailmessage.lpszSubject:=pchar(SubjectEdit.Text); // Задаем текст сообщения (кидаем все в виде одной строки) c:=""; for i:=0 to pred(memo1.lines.count) do c:=pchar(c+memo1.lines[i]+char(10)+char(13)); mailmessage.lpszNoteText:=pchar(c); // Цепляем к сообщению отправителя mailmessage.nRecipCount:=1; mailmessage.lpRecips:=@recipient; // Цепляем к сообщению аттачменты mailmessage.nFileCount:=1; mailmessage.lpFiles:=@attachement; // Отправляем подарок из африки MAPISendMail(Session, 0, mailmessage, 0, 0); MAPILogoff(session, 0, 0, 0); ... end; ...
-------
После сего кода идем в аутлук и ищем в "отправленных" наше письмо. Если лежит, значит жизнь удалась, идем пить пиво. В противном случае настраиваем почтового клиента таким образом, чтобы через всплывающее меню Sent To/Mail Recipient Проводника удавалось отправлять файлы.

← →
mgFox (2004-09-14 12:02) [9]

Попробовал я отправить письмо через API, как то странно получается.
Диалога выбора профиля мне не выдается, а на попытку отправки пишет что типа еррор -1073741819.
Так и должно быть ???

Привет FoxBox. Я сделал всё как ты предложил, но программа неработает и выдаёт ошибки (ненайден AdVapi32.dll, при том, что сообщения на эл. почту можно через Outlook и с AdVapi32.dll всё нормально) или программа не выдаёт вообще никаких диалогов и ничего не посылает. Если тебе нетрудно ответь пожалуйста:
1) Что такое AdVapi32.dll
2) Можно ли компилировать программу на компьютере с Windows NT, а запускать exe-файл на компьютере с Windows 98, 2000, XP

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, mapi, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdMessageClient, IdSMTP, StdCtrls ;

type
TForm1 = class(TForm)
IdSMTP1: TIdSMTP;
Button1: TButton;
Memo1: TMemo;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
session : integer;
mailmessage : TmapiMessage;
recipient: TmapiRecipDesc;
Attachement : TmapiFileDesc;
c : pchar;
i : integer;
begin
mapilogon(0,"My Profile", nil, MAPI_NEW_SESSION, 0, @session);
// Задаем отправителя
recipient.ulRecipClass:=MAPI_TO;
recipient.lpszName:="";
// recipient.lpszAddress:=pchar("Karn@Almatytelecom.kz");
recipient.lpszAddress:=pchar("Veronika@Almatytelecom.kz");
recipient.ulEIDSize:=0;
recipient.lpEntryID:=nil;
attachement.ulReserved:=0;
// Задаем аттачмент
attachement.lpszPathName:=pchar(Edit1.Text);
attachement.lpszFileName:=pchar("Edit2.Text");
attachement.lpFileType:=nil;
// Задаем заголовок
mailmessage.lpszSubject:=pchar("Программа");
// Задаем текст сообщения (кидаем все в виде одной строки)
c:="";
for i:=0 to pred(memo1.lines.count) do
c:=pchar(c+memo1.lines[i]+char(10)+char(13));
mailmessage.lpszNoteText:=pchar(c);

// Цепляем к сообщению отправителя
mailmessage.nRecipCount:=1;
mailmessage.lpRecips:=@recipient;

// Цепляем к сообщению аттачменты
mailmessage.nFileCount:=1;
mailmessage.lpFiles:=@attachement;

// Отправляем подарок из африки
MAPISendMail(Session, 0, mailmessage, 0, 0);
MAPILogoff(session, 0, 0, 0);end;

end.

Internet Найти похожие ветки