Toplu Mail Gönderme

cemrebilgisayar · Mesaj gönderen **cemrebilgisayar** » 30 Ağu 2007 11:40

Selam
Arkadaşlar Toplu Mail gönderirken gönderdiğim mail adresi listesininin gönderdiğim kişilerde görünmemesini istyorum bunu aıl yaparım
iyi çalışmalar

mrmarman · Mesaj gönderen **mrmarman** » 30 Ağu 2007 12:25

Gönderirken BCC kısmını kullanın...

Kod: Tümünü seç

IdMessage.Recipients.Add;

deyip mail adreslerini eklemek yerine

Kod: Tümünü seç

IdMessage.BccList.Add;

ile BCC listesine ekleyin...

cemrebilgisayar · Mesaj gönderen **cemrebilgisayar** » 30 Ağu 2007 04:04

teşekkür ederim arkadaşım
bir sorum daha olacak bu şekilde yaptığımızda gönderilen kişide Kimden kısmı boş çıkıyor oraya nasıl yazı yazdırabilirim

mrmarman · Mesaj gönderen **mrmarman** » 30 Ağu 2007 04:38

Gönderen kısmına kendi mail adresini yaz şu formatta yazarsan dilediğin şekilde çıkar...

Kod: Tümünü seç

Benim Şirketim<benim@gmail.com>

Böylece karşıda Benim Şirketim olarak ifade görürler...

cemrebilgisayar · Mesaj gönderen **cemrebilgisayar** » 30 Ağu 2007 04:42

Peki resmi nasıl gönderrim. dosya olarak değilde mail açılınca resmi görmelerini istiyorum

mrmarman · Mesaj gönderen **mrmarman** » 30 Ağu 2007 04:43

HTML olarak gönderebilirsin. Forumda arama yaptır daha önce bir örnek vermiştim...

gokcemt · Mesaj gönderen **gokcemt** » 10 Eyl 2007 08:35

toplu mail gönderme kodlarını burada paylaşabilirsen çok sevinirim. Aynı işlemi benimde programa eklemem lazımda.

haydarxxx · Mesaj gönderen **haydarxxx** » 10 Eyl 2007 01:58

gokcemt arkadaşım gibi bende böyle bir şey yayınlansa çok sevinirim mail konusunda forumdaki bütün yazıları okıdum kodlarda var ama bir türlü beceremedi ındy bileşeni ile smtp ayarlarınadan bahsediliyor onuda beceremedim.gmail.hotmail.mynet... gibi adreslere nasıl mail atabiliriz bir makale yayınlansa çok güzel olurdu forumdaki bilgileri derleyerek çok güç oluyor

örneğin mrmarman hocamın yayınladığı bir kod vardı denedim kendimce ama bir sonuç almadım xp kullanıcısıyım delphi7 kullanıyorum makinada bir ayar yapılıyormu bilmiyorum.

Kod: Tümünü seç

procedure TForm1.Button5Click(Sender: TObject);
Var 
  IdSMTP               : TIdSMTP; 
  IdMessage            : TIdMessage; 
  HTMLpart             : TIdText; 
  Attachment           : TIdAttachment; 
begin 
  // Mail Server Ayarları
  IdSMTP                                 := TIdSMTP.Create(Nil); 
  IdSMTP.AuthenticationType              := atLogin; 
  IdSMTP.Host                            := 'smtp.gmail.com';
  IdSMTP.Username                        := 'haydar';
  IdSMTP.Password                        := 'xxxxxx';//mail şifrem
  IdSMTP.Port                            := 465; 

  // Mail Body işlemleri 
  IdMessage := TIdMessage.Create( nil ); 
  IdMessage.From.Name               := 'Muharrem ARMAN'; 
  IdMessage.From.Address            := 'haydaryuceloglu@hotmail.com';
  IdMessage.Recipients.Add; 
    IdMessage.Recipients[0].Name    := 'DivXTurk'; 
    IdMessage.Recipients[0].Address := 'haydaryuceloglu@gmail.com';
  IdMessage.Subject                 := 'eMail Konusu'; 
  IdMessage.ContentType             := 'multipart/mixed'; 

  HTMLpart := TIdText.Create( IdMessage.MessageParts ); 
  HTMLpart.ContentType     := 'text/plain'; 
  HTMLpart.Body.Text       := ''; 
  HTMLpart.ContentTransfer := 'quoted-printable'; 

  HTMLpart := TIdText.Create( IdMessage.MessageParts ); 
  HTMLpart.ContentType     := 'text/html'; 
  HTMLpart.ContentTransfer := 'quoted-printable'; 
  With HTMLpart.Body do begin 
    Clear; 
    Add('<html>'); 
    Add('<head>'); 
    Add('<title>Test</title>'); 
    Add('</head>'); 
    Add('<body>'); 
    Add('<h1>hede hödö</h1>'); 
    Add('<h2>Delphi Türkiye</h2>'); 
    Add('<a href="www.delphiturkiye.com/forum">delphiturkiye forum</a>'); 
    Add('<center><img src="cid:BizimResim.BMP"></center>'); 
    Add('<a href="www.delphiturkiye.com/forum">delphiturkiye forum</a>'); 
    Add('</body>'); 
    Add('</html>'); 
  end; 

  Attachment := TIdAttachment.Create( IdMessage.MessageParts, 'EMAIL1.bmp' ); 
  Attachment.ContentType        := 'image/bmp'; 
  Attachment.ContentDisposition := 'attachment'; 
  Attachment.ExtraHeaders.Values['content-id'] := 'BizimResim.BMP'; 

  IdSMTP.Connect; 
  IdSMTP.Authenticate; 
  IdSMTP.Send( IdMessage ); 
  IdSMTP.Disconnect; 

  Attachment.Free; 
  IdMessage.Free; 
  IdSMTP.Free; 
end;

tabi buradaki alanlar nasıl dolduruluyor bilmiyorum ben bu şekilde yamıştım.

gokcemt · Mesaj gönderen **gokcemt** » 17 Eyl 2007 02:27

unit MainUnit;

interface

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

type
TMailerForm = class(TForm)
MailMessage: TIdMessage;
pnlTop: TPanel;
pnlBottom: TPanel;
Body: TMemo;
ledAttachment: TLabeledEdit;
btnAttachment: TBitBtn;
SMTP: TIdSMTP;
ledCC: TLabeledEdit;
ledSubject: TLabeledEdit;
btnSendMail: TBitBtn;
StatusMemo: TMemo;
AttachmentDialog: TOpenDialog;
procedure btnSendMailClick(Sender: TObject);
procedure SMTPStatus(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: String);
private
procedure GetSettings;
procedure SaveSettings;
public
{ Public declarations }
end;

var
MailerForm: TMailerForm;

implementation

{$R *.dfm}

procedure TMailerForm.btnSendMailClick(Sender: TObject);
begin
StatusMemo.Clear;

//setup SMTP
SMTP.Host :='mail.xxxxx.com.tr';
SMTP.Port :=25;
SMTP.Username :=username;
SMTP.Password :=password;

//setup mail message
MailMessage.From.Address :='xxxx@mail.com.tr';
MailMessage.Recipients.EMailAddresses :=ledCC.Text;

MailMessage.Subject := ledSubject.Text;
MailMessage.Body.Text := Body.Text;

if FileExists(ledAttachment.Text) then
TIdAttachment.Create(MailMessage.MessageParts, ledAttachment.Text);

//send mail
try
try
SMTP.Connect(1000);
SMTP.Send(MailMessage);
except on E:Exception do
StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message);
end;
finally
if SMTP.Connected then SMTP.Disconnect;
end;

end; (* btnSendMail Click *)

procedure TMailerForm.SMTPStatus(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: String);
begin
StatusMemo.Lines.Insert(0,'Status: ' + AStatusText);
end; (* SMTP Status *)