|
|
Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz..
Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
local üzerinden mail gönderme?
- Konbuyu başlatan i.ari
- Başlangıç tarihi
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.
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.