Local Sunucudan Mail Gonderme

18/Mar/06 13:28

Kısayol

Şikayet

Özel Mesaj

BeyazSeytan

Kayıt Tarihi: 17/Temmuz/2005

Merhaba bir mail systemi yaptim listeliyor filan heseyi cok gusel ama tek sorunum mail atamiyorum su anda asp ile senranizasyon sekilde localhost/mailsender.asp uzerinden honderme yaptirtiyorum. IIS imin kendi smtp si ile gondermek istiyorum.
TIdSMTP bileseni ile yapabileceğim soylediler ama duydugum kisi bilesenin nerde olsugunu bile bilmiyor :) acaba bu konuda bana yardim ede bilecek birisi waermi ?

<% if not hayat.eof then hayat.close %>

Alıntı yap

18/Mar/06 13:30

Kısayol

Şikayet

Özel Mesaj

All hail to Tux
sandman

Kayıt Tarihi: 01/Eylül/2005

windows2003 kullanıyorsan exchange server kur :)

Mühendis kahveyi projeye dönüştüren bir insan evladıdır.

Alıntı yap

19/Mar/06 08:22

Kısayol

Şikayet

Özel Mesaj

BeyazSeytan

Kayıt Tarihi: 17/Temmuz/2005

ASP ile zaten mail gonderiyorum.
Delphi ile sadece denediğimde beceremedim.

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

procedure TForm1.Button1Click(Sender: TObject);
begin
if checkbox2.Checked=true then
idsmtp1.Host:=combobox1.Text
else
idsmtp1.Host:=edit1.text;
idsmtp1.username:=edit2.text;
idsmtp1.password:=edit3.text;
if checkbox1.checked then
Idsmtp1.AuthenticationType:=atlogin
else
Idsmtp1.AuthenticationType:=atnone;
idmessage1.From.Address:=edit4.text;
idmessage1.Recipients.EMailAddresses:=edit5.text;
idmessage1.Subject:=edit6.text;
idmessage1.Body.Assign(memo1.lines);
try
idsmtp1.connect;
except
showmessage("olmadı");
end;
try
idsmtp1.Send(idmessage1);
showmessage("oldu");
finally
idsmtp1.Disconnect;
end;
end;

Buna smtp olarak localhost yazdiğimda olmadi diye cewap veriyor. 127.0.0.1 yazdiğimda oldu diyor ama mail gitmiyor.

[KOD Lash003 Tarafindan yazilmistir ve Mx1.hotmail.com - gsmtp163.gmail.com smtp leri ile sorunsuz calismaktadir.]

<% if not hayat.eof then hayat.close %>

Alıntı yap

19/Mar/06 12:55

Kısayol

Şikayet

Özel Mesaj

ir2

Kayıt Tarihi: 10/Mayıs/2003

güzel kardeşim onu kim dediyse siktrsin kendi sevrerın yoksa componenti nasıl kullanıcanki
senin yapman gereken windows bileşeni kur a girip ordan iis altında SMTP sevrerı kurmak daha sonra microsoftun sitesinden cdonts.dll yi bulup sisteme register etcen (regsvr32 cdonts.dll) tabi permission ayarı falan aypılmış olcak daha sonra iis içinden smtp serverı çalıştırıcan daha sonra CDONTS u kullanabilirsin local smtp kullanan çok daşaklı bir mail componentdir zaten microsoft bi piyasaya girdiyse alternatif pek yokdur

Alıntı yap

19/Mar/06 14:44

Kısayol

Şikayet

Özel Mesaj

BeyazSeytan

Kayıt Tarihi: 17/Temmuz/2005

Hocam CDONTS ile asp uzerinden mail gonderiyorum zaten. Benim isteyim. Bu smtpyi Delphi de kullanmak. yazdiğim kodlari kullanaran denedim server adresi bolumune localhost yazdiğimda baglanamiyor. 127.0.0.1 yazdiğimda mail gitmis gibi gosteriyor ama mail gitmiyor.
XP Pro SP2 kurulu // IIS 5.1 ve SMTP si yuklu // ASP ile hic sorun yasamiyorum mail gondermede. ASP de kullandiğim koduda yazayim.

On Error Resume Next

Private Function SheyTaNiMail(strKimden,strKime,strKonu,strMesaj)
Set objMail = Server.CreateObject("CDO.Message" )
objMail.From = strKimden
objMail.To = strKime
objMail.Subject = strKonu
objMail.TextBody = strMesaj
'objMail.BodyFormat=0
'objMail.MailFormat=0
objMail.SEnd
SheyTaNiMail = "<" & strKime & ">"
Set objMail = Nothing
End Function

dediğim gibi makinem mail atiyor ASP ile fakat Delphide Local SMTP yi kullanamadim bir turlu

<% if not hayat.eof then hayat.close %>

Alıntı yap