İyinet'e Hoşgeldiniz!

Türkiye'nin En Eski Webmaster Forum'una Hemen Kayıt Olun!

Kayıt Ol!

local üzerinden mail gönderme?

i.ari

0
İyinet Üyesi
Katılım
16 Aralık 2006
Mesajlar
4,437
Reaction score
6
Konum
Ankara
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

0
İyinet Üyesi
Katılım
1 Temmuz 2005
Mesajlar
7,037
Reaction score
54
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

0
İyinet Üyesi
Katılım
16 Aralık 2006
Mesajlar
4,437
Reaction score
6
Konum
Ankara
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

0
İyinet Üyesi
Katılım
1 Temmuz 2005
Mesajlar
7,037
Reaction score
54
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

0
İyinet Üyesi
Katılım
16 Aralık 2006
Mesajlar
4,437
Reaction score
6
Konum
Ankara
Şu anda tatildeyim otelin wireless inden giriyorum akşam eklersen sevinirim
 

Darkart

0
İyinet Üyesi
Katılım
1 Temmuz 2005
Mesajlar
7,037
Reaction score
54
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.
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Üst