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

Вниз

Использование 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 вся ветка

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

Наверх





Память: 0.56 MB
Время: 0.062 c
1-78421
mas_alexey
2002-10-15 17:32
2002.10.24
Алгоритм подсчёта колличества файлов


14-78616
Anatoy Podgoretsky
2002-10-03 09:24
2002.10.24
Дни раождения 3 октя


3-78308
dimonf
2002-10-03 16:46
2002.10.24
Почему зависает приложение, после SQL запроса?


7-78686
Riper
2002-08-14 18:33
2002.10.24
рАБОТА С ПОРТАМИ! НЕ РАБОТАЕТ WAITCOMMEVENT. ПОЧЕМУ?


7-78691
matrixxxx
2002-08-06 20:20
2002.10.24
делаю программу для изготовления sms. Нужно чтобы введенный текст





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