e mail gönderme ( forumda aradım taradım bulamdım)

[lodos]

arkadaslar 3 tane buton yapıp

1.ci ve 2.ci de yazılan yazıları 3.cudeki e postaya göndersin

veya

yine 1.ci ve 2.ci de yazılan yazıları sabit mail e göndersin

ara yaptım ama aradıgım ı bulamdım yardım edebilirseniz sevirim

iyi calısmalar

[MercilessTurk]

IdSMTP

[lodos]

arkdasım hepsini aradım yoq sadece hep hata var smtp fln konular acılmıs tam bir kod ornegi yok 1 tane nidirdim fakat oda istedigim gibi değil

[naile]

Kod: Tümünü seç

  SMTP.Host := ledHost.Text; //host name veya ip
  SMTP.Port := 25; //port no

  //setup mail message
  with idMessage1 do
  begin
    From.Name := 'ad soyad';
    From.Address := 'adres@domain.com.tr';
    Recipients.EMailAddresses := 'adres@domain.com.tr';
    Subject := 'konu'
    Body.Text := 'Mesaj gövdesi'


  if FileExists('dosya yolu') then //attach 
    TIdAttachment.Create(idMessage1.MessageParts, 'dosya_yolu');

  //send mail
  try
    try
      SMTP.Connect;//bağlan
      SMTP.Send(idMessage1); //gönder
    except on E:Exception do
      ShowMessage( 'ERROR: ' + E.Message);
    end;
  finally
    if SMTP.Connected then SMTP.Disconnect;
  end;

[lodos]

SMTP.Host := ledHost.Text; //host name veya ip

burada hata veriyo ??

[mrmarman]

Selam...

Ref : viewtopic.php?t=17403#100058

burada tekmili birden bir operasyon bulabilirsin...

başarılar.

[unicorn64]

direk C/P yaptıysan hata vermesi normal.
SMTP.Host değerine ne atadın??

[lodos]

Kod: Tümünü seç

  SMTP.Host := ledHost.Text; //host name veya ip 
  SMTP.Port := 25; //port no 

  //setup mail message 
  with idMessage1 do 
  begin 
    From.Name := 'ad soyad'; 
    From.Address := 'adres@domain.com.tr'; 
    Recipients.EMailAddresses := 'adres@domain.com.tr'; 
    Subject := 'konu' 
    Body.Text := 'Mesaj gövdesi' 


  if FileExists('dosya yolu') then //attach 
    TIdAttachment.Create(idMessage1.MessageParts, 'dosya_yolu'); 

  //send mail 
  try 
    try 
      [color=red]SMTP[/color].Connect;//bağlan 
      SMTP.Send(idMessage1); //gönder 
    except on E:Exception do 
      ShowMessage( 'ERROR: ' + E.Message); 
    end; 
  finally 
    if SMTP.Connected then SMTP.Disconnect; 
  end;

burdaki kırmızı yere geliyo imlec ne yazsam fark etmiyo

[unicorn64]

kodu direk bu şekilde kullanıyosan connect de hata verdiğine gore smtp host da yine bence sorun. hangi adresi kullanıyosun bilmiorum ama mesela gmail için smtp.gmail.com olcak

[mrmarman]

GMail için özel bir durum vardır. Unutulmamalıdır. SSL destekli bağlantı kurmak zorundasınızdır. OpenSSL kütüphaneleri internette mevcuttur. GMail için bu DLL dosya program dizininde bulunmalıdır.

[savasgti]

çalışıyor ama hotmail e göndermiyor birde junk a düşüyor neden olabilir.

[askarad]

benim yapmak istediğim ise gönderilenlerin listesini gizlemek. her gönderilen kişi gönderilenlerin tümü listeleniyor. bu konuda bilgisi olan varsa paylasabilir mi?

[mkysoft]

mailleri tek tek gönderebilirsiniz yada BCC kısmına yazabilrisiniz adresleri.

[conari]

TO yerine BCC (blind carbon copy) alınını kullanacaksınız.

[askarad]

Aşağıdaki kodu yazdığımda
'List index out of bounds(1)'. Process stopped hatası alıyorum.
cclist 'e 'bilgi@mail.com;bilgi@mail2.com' şeklinde de atama yapamıyorum.
çok sayıda mail göndermek istiyorum.
Amacım mail gönderdiğim müşteriler birbirlerinin adreslerini görmesin.

Cevabınız için şimdiden tsk ler

Kod: Tümünü seç

For s:=1 to Table.Recordcount do begin
IDMessage.CCList[s].Address:=Tablemail.value;
Table.Next;
end;