16-03-2008, 19:52
Ms Access ile CDO kullanarak çalışan bir SMTP server yardımıyla direkt olarak e-mail gönderebilirsiniz. Alttaki kodlar sizin de kullanmanızı tavsiye ettiğim GMail e göre düzenlenmiştir.
Not: Gönderilen e-mailin junk, bulk ya da önemsiz klasörüne düşmemesi için "priority" ve " importance" schemas ları sayın Zeki Gürsoy tarafından eklenmiştir..
Kod:
Dim objCDOMail As Object
Set objCDOMail = CreateObject("CDO.Message")
objCDOMail.To = "xxxxxx@hotmail.com" ' Gönderilecek e-mail adresi
objCDOMail.From = "yyyyy@gmail.com" ' Gönderilen e-mail adresi
'objCDOMail.CC = "xxxx@hotmail.com" ' Eğer isterseniz CC olarak yani bilgi gönderilecek e-mail adresi
objCDOMail.Subject = "gmail deneme" ' e-mail konusu
'objCDOMail.Addattachment "C:\kaynak.txt" ' eğer isterseniz eklenecek dosya
objCDOMail.TextBody = "gmail denemesi" ' Mesajınız....
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "kullanıcıadı"
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "şifre"
objCDOMail.Configuration.Fields.Item("urn:schemas:httpmail:importance") = 2
objCDOMail.Configuration.Fields.Item("urn:schemas:mailheader:X-Priority") = 1
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOMail.Configuration.Fields.Update
objCDOMail.Send
Set objCDOMail = NothingNot: Gönderilen e-mailin junk, bulk ya da önemsiz klasörüne düşmemesi için "priority" ve " importance" schemas ları sayın Zeki Gürsoy tarafından eklenmiştir..
Javascript
- this.setState({sign:"Here comes the sun...."})
Yazan okuyan sağolsun, çözene saygılar. Kolaylaştırınız, zorlaştırmayınız.
Kesin çözüm: Bunun yerine koca bir forma bir tarayıcı nesnesi ekleyin. Formdan eposta gönderen servsilerden birine girip bir sayfa oluşturun. Tarayıcı nesnesi bu sayfayı açsın. Böylece bu işler garanti olur hem de belli bir domain adının alt sayfası oalrak bunu verirseniz ilerde serviste çıakcak sorunalra karşı güzel bir de tedbir almış olursunuz. Ben buna eşşeği sağlam kazığa bağlamak diyorum. Mesela 