Скачать: CL | DM;

Использование MAPISendMail   Найти похожие ветки 

← →
Patrick ©   (2002-09-10 08:39) [0]

Пробовал отправлять почтовые сообщения, из своего приложения, используя MAPISendMail, всё делал как в показано в FAQ, который
лежит на данном сервере

unit Email;
interface
uses Windows, SysUtils, Classes;

function SendEmail(const RecipName, RecipAddress, Subject, Attachment: string): Boolean;

function IsOnline: Boolean;

implementation
uses Mapi;

function SendEmail(const RecipName, RecipAddress, Subject, Attachment: string): Boolean;
var
MapiMessage: TMapiMessage;
MapiFileDesc: TMapiFileDesc;
MapiRecipDesc: TMapiRecipDesc;
i: integer;
s: string;
begin
with MapiRecipDesc do begin
ulRecerved:= 0;
ulRecipClass:= MAPI_TO;
lpszName:= PChar(RecipName);
lpszAddress:= PChar(RecipAddress);
ulEIDSize:= 0;
lpEntryID:= nil;
end;

with MapiFileDesc do begin
ulReserved:= 0;
flFlags:= 0;
nPosition:= 0;
lpszPathName:= PChar(Attachment);
lpszFileName:= nil;
lpFileType:= nil;
end;

with MapiMessage do begin
ulReserved := 0;
lpszSubject := nil;
lpszNoteText := PChar(Subject);
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;
lpOriginator := nil;
nRecipCount := 1;
lpRecips := @MapiRecipDesc;
if length(Attachment) > 0 then begin
nFileCount:= 1;
lpFiles := @MapiFileDesc;
end else begin
nFileCount:= 0;
lpFiles:= nil;
end;
end;

Result:= MapiSendMail(0, 0, MapiMessage, MAPI_DIALOG
or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0) = SUCCESS_SUCCESS;
end;


function IsOnline: Boolean;
var
RASConn: TRASConn;
dwSize,dwCount: DWORD;
begin
RASConns.dwSize:= SizeOf(TRASConn);
dwSize:= SizeOf(RASConns);
Res:=RASEnumConnectionsA(@RASConns, @dwSize, @dwCount);
Result:= (Res = 0) and (dwCount > 0);
end;

end.


Касательно данного примера два ньюанса

нигде не мог найти описания типа TRASCONN из функции isOnline,
хотя где использовать данную функцию немного непонятно.

в своей программе я делал следущее

if SendEmail( "Адрес получателя", "","test","d:\Delphi Projects\trigger.txt")
then ShowMessage("Your message is sending")
else ShowMessage("Your message is NOT sending");

при этом вызывается почтовая программа (в моем случае OutLook Express)(я думаю этого происходить не должно, сообщение должно отправляться), но ничего не происходит, хотя все параметры встают на свои места, но даже принудительно ничего отправить не могу, и окно закрыть тоже не выходит. Приходится через Delphi срубать приложение. Посоветуйте что-нибудь, please.

---

← →
zx ©   (2002-09-11 16:03) [1]

У меня этот пример то же не заработал:(
Использую TNMSMTP.

---

← →
Patrick ©   (2002-09-12 09:13) [2]

Всё дело в том, что я тоже пробовал использовать TNMSMTP, и даже делфийский пример ....Demos\FastNet\SMTP\, возможно я неправильно указывал Host,Port,UserId, в качестве Host"а я использовал своего почтового провайдера, порт 25 (по умолчанию), ну и своё имя конечно, как UserID, Метод SendMail вроде на первый взгляд работает нормально, почта уходит, события говорят, что всё хорошо, но к получателю ничего не приходит. Подскажите что нибудь, please/

---

← →
zx ©   (2002-09-12 12:39) [3]

Привет! Patrick ©
Вот так у меня работает через www.mail.ru!

NMSMTP1.Host := "pop.mail.ru";
NMSMTP1.UserID := "my_mail";
NMSMTP1.PostMessage.FromAddress := "my_mail@mail.ru";
NMSMTP1.PostMessage.ToAddress.Text := "other_mail@mail.ru";
NMSMTP1.PostMessage.Subject := "subject";
NMSMTP1.PostMessage.Body.Add("text");
NMSMTP1.Connect;
NMSMTP1.SendMail;
NMSMTP1.Disconnect;

---

← →
REA   (2002-09-12 17:20) [4]

SMTP есть в Indy, можно использовать ActiveX от микрософт, можно и руками послать - протокол тривиальный.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c