local üzerinden mail gönderme?

i.ari

Merhaba arkadaşlar,
kendi local bilgisayarımından mail göndermek istiyorum.

bunu nasıl saglarım?

kendi xp bilgisayarımdan göndermek istiyorum.

Darkart · 21 Haziran 2009

local ip den çıkış yaparsan zaten anında spam olursun. ADSL ipleri anında spama düşüyor. Ben kendime orta halli bir crm yazdım asp ile. CDO ya da persits kullanarak hosting hesabım ip sinden gönderebiliyorum. Ya gmail entegre ederek bununla yolluyorum duruma göre. Tam olarak yapmak istediğin şeyin ne oldugunu anlamadıgım için ben kendi yaptığımı yazdım belki fikir olur.

i.ari · 22 Haziran 2009

localimden kendi mail listim var firmalara mail gönderecegim.

Günlük 100-200 mail gmail ilede gönderebilirsem sorun olmaz.

Serveri kullanmak istemiyorum spam olarak algılanmasın diye.

Darkart · 22 Haziran 2009

sen lokalden gmail hesabını kullanarak öyle göndermek istiyorsan ya akşamı bekle gerekli kodları eve gidince gönderiyorum olmadı CDO gmail ayaları diye arat google bulursun.

i.ari · 23 Haziran 2009

Şu anda tatildeyim otelin wireless inden giriyorum akşam eklersen sevinirim

Darkart · 23 Haziran 2009

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = MailServer '//smtp.gmail.com
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = GonderenAdres '// gmail adresin
Flds.Item(schema & "sendpassword") = EPostaPass '// gmail şifren
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
on error resume next
.To = EPostaID '//mail yollanacak adres ya da adresleri bu değişkene atıyorum alıyorum
.From = GonderenAdres '// yazdığım program birden çok mail destekliyor o yüzden bu kısmıda değişkene atıyorum istersen sen sabit bir eposta adresi kullan
.Subject = KisiAdi & " " & Unvan & " " & konu '// burası konu kısmı
.AddAttachment(Path&EkDosya) '// ekte dosya gönderme
.BodyPart.charset = "windows-1254" '// tükçe karakterler
.HTMLBody = "<br><div style=""font-family:Arial;font-size:18px;letter-spacing: -1px;"">"&KisiAdi & mid(yazi,2,len(yazi ))&" Merhaba</div><br><div>"&EPostaIcerik&"</div>" '// bu kısmı ben direk vt den aldıgım için kendime göre oluşturdugum değişkenler var. sana basit haliyle yolluyorum anlaman için.
.Sender = GonderenAdres '// gönderen adres kısmı
.Organization = "www.domain.com"
.ReplyTo = GonderenAdres '// cevabın gelmesini istediğin adres
Set .Configuration = iConf
SendEmailGmail = .Send
End With

set iMsg = nothing
set iConf = nothing
set Flds = nothing

ben bunu aynen böyle sorunsuz kullanıyorum. ancak dediğim gibi ben kendi çapımda işime yarayacak bir crm yazdım. bunuda onda entegreli kullanıyorum. günde 5-10 mail gönderiyorum. ama kalkıp binlerce gönderirsen gmail izin vermeyecektır aklında olsun. Tahminen günlük izin verdiği 300-400 mail olsa gerek.