0 Üye ve 1 Ziyaretçi konuyu incelemekte.
İki gündür program ile mail gonderme işleriyle uğraşıyorum ama beceremedim. Forumda arattım bende herkes gibi mynet'e mail gonderebiliyorum ama mynetten bağlanıp diğer mail servislerine(hotmail,gmail) gibi olan yerlere gonderemiyorum.Araştıra araştıra gmx.net sitesiyle tanıştım. Oradan alınan maille yapıldığı falan yazılıyordu. Maili aldım. Fakat programa bağlan dediğimde:"5.3.2 sorry, during probation period you are not allowed to use SMTP services{mp032}" hatası veriyor. Bu hatanın gmx.net'in smtp'sini kullanamadığım anlamına geldiğini biliyorum. Bunu nasıl aşabilirim bilgisi olan var mı?Yada daha basit bir mail servisi var mı? Ayrıca bu gmx ile bağlantı sorunun aşarsam diğer servislerede mail gönderebilir miyim? Yardımlarınız için şimdiden teşekkürler.
IdSMTP1.AuthType:=atDefault; IdSMTP1.Host := edHost.Text; IdSMTP1.Username := edUser.Text; IdSMTP1.Password := edPass.Text; if edPort.Text = EmptyStr then IdSMTP1.Port := 25 else IdSMTP1.Port := StrToInt( edPort.Text); // Mail Body iÅŸlemleri IdMessage1 := TIdMessage.Create( nil ); IdMessage1.From.Name := edFrom.Text; IdMessage1.From.Address := edUser.Text; begin IdMessage1.ReceiptRecipient.Text:=edFrom.Text; IdMessage1.ContentType := 'text/plain'; IdMessage1.CharSet := 'UTF-8'; IdMessage1.Body.Text := EdBody.Lines.Text; end; IdSMTP1.Connect; IdSMTP1.Authenticate; IdSMTP1.Send( IdMessage1 ); IdSMTP1.Disconnect;
CHILKATMAILLib2_TLB, OleCtrls;
varmailman: TChilkatMailMan2;success: Integer;email: CHILKATMAILLib2_TLB.IChilkatEmail2;begin mailman := TChilkatMailMan2.Create(Self);// Any string argument automatically begins the 30-day trial.success := mailman.UnlockComponent('30-day trial');if (success <> 1) then begin ShowMessage('Component unlock failed'); end;// Use the GMail SMTP servermailman.SmtpHost := 'smtp.gmail.com';mailman.SmtpPort := 465;mailman.SmtpSsl := 1;// Set the SMTP login/password.mailman.SmtpUsername := 'kullanıcı adın '; // @gmail.com olmadan yazıcaksınmailman.SmtpPassword := 'şifren'; // gmail şifren// Create a new email objectemail := CoChilkatEmail2.Create();email.Subject := 'This is a test'; // konuemail.Body := 'This is a test'; // mail içeriği email.From := 'adamın adı <gidecek@adres.com>';email.AddTo('admın adı falan bişey yazarsın','gidecek@adres.com');success := mailman.SendEmail(email);if (success <> 1) then begin ShowMessage(mailman.LastErrorText); end;ShowMessage('Mail Sent!'); // mail gönderildi ... Test ettim çalışıyor Spam a da değil inbox a düşüyor hotmailde ....
barutali sana zahmet oldu çok teşekkür ederim yardımın için.