e-mail Göndermek
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.
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 = Nothing
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..