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

Вниз

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]

У меня проблема. Необходимо находящийся на ЖД html-файл, являющийся уведомлением пользователя интернета об оплате, отправить на электронный адрес пользователя. При этом всё это нужно сделать в Delphi 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.
Так и должно быть ???


 
inkarik ©   (2004-09-15 06:50) [10]

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


 
inkarik ©   (2004-09-15 07:18) [11]

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

object Form1: TForm1
 Left = 192
 Top = 107
 Width = 696
 Height = 480
 Caption = "Form1"
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -11
 Font.Name = "MS Sans Serif"
 Font.Style = []
 OldCreateOrder = False
 PixelsPerInch = 96
 TextHeight = 13
 object Button1: TButton
   Left = 312
   Top = 232
   Width = 75
   Height = 25
   Caption = "Button1"
   TabOrder = 0
   OnClick = Button1Click
 end
 object Memo1: TMemo
   Left = 104
   Top = 112
   Width = 185
   Height = 89
   Lines.Strings = (
     "Memo1")
   TabOrder = 1
 end
 object Edit1: TEdit
   Left = 504
   Top = 208
   Width = 121
   Height = 21
   TabOrder = 2
   Text = "Edit1"
 end
 object Edit2: TEdit
   Left = 480
   Top = 112
   Width = 121
   Height = 21
   TabOrder = 3
   Text = "Edit2"
 end
 object IdSMTP1: TIdSMTP
   MaxLineAction = maException
   ReadTimeout = 0
   Port = 25
   AuthenticationType = atNone
   Left = 360
   Top = 104
 end
end


 
inkarik ©   (2004-09-15 07:19) [12]

Привет 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.


 
panov ©   (2004-09-15 09:56) [13]

>inkarik ©  
Хватит флудить.



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

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

Наверх





Память: 0.49 MB
Время: 0.038 c
14-1098854374
ИМХО
2004-10-27 09:19
2004.11.21
Падение американского доллара


1-1099689667
Kolan
2004-11-06 00:21
2004.11.21
Поле предка


1-1099237858
SVM
2004-10-31 18:50
2004.11.21
Взаимодействие exeшника(Delphi) и dllки(.NET)


1-1099935857
White__
2004-11-08 20:44
2004.11.21
Шаблоны в Delphi7


1-1099224487
lipskiy
2004-10-31 15:08
2004.11.21
Печать из браузера по умолчанию?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский