Mail gönderimi

[merakli_72]

Mrb,
MsOutllok 2003 kullanıyorum Accesste DoCmd.SendObject ile otomatik mail göndermek istediğimde "Bir program sizin yerinize otomatik mail göndermeye çalışıyor" şeklinde uyarı gelip Evete tıklamamı istiyor, oysa ben maillerin otomatik olarak gitmesini istiyorum
Outlook expresste bununla ilgili güvenlik ayarlaması vardı, outlook güvenlik seçeneklerinde boyle bir şey bulamadım, bunun bir yolu varmı acaba,
Teşekkürler

 

[msalvarli]

bende baya bir araştırmıştım ancak bulamadım. İllaki onay istiyor. Bu konuya forumdaki üstadlar el atmazsa olmaz sanırım...

 

[modalı]

Sayın merakli_72,

Aşağıdaki kodu kullanabilirsiniz:
Dikkat ettiyseniz bu kodun Outlook vs ile ilgisi yok direkt olarak mesaj yolluyor. Ancak ayarlarını doğru yapmalısınız. Ben ttmail kullandığım için ilgili ayarları ekledim
.Item(cdoSMTPServer) = "smtp.ttmail.com"
.Item(cdoSMTPServerPort) = 587

Dim iMsg As CDO.Message
Dim iConf As CDO.Configuration
Dim Flds As Variant


Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.ttmail.com"
.Item(cdoSendUserName) = "denemeHesap@ttmail.com"
.Item(cdoSendPassword) = "sifre123"
'.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPServerPort) = 587
.Update
End With
With iMsg
Set .Configuration = iConf
.To = "Gonderilecek_adres@hotmail.com"
.From = """Gönderici deneme"" <denemeHesap@ttmail.com>"
.Subject = "This is a test"
.TextBody = "Hi there"
'.AddAttachment "C:/" & WBname
' You can add any file you want with
'.AddAttachment "C:/Test.txt"
.Send
End With

İyi çalışmalar

 

[msalvarli]

sayın modalı teşekkürler yardımınız için... gün içerisinde deneyeceğim. ancak buarada belirttiğiniz kodları kapsayan küçük bir örnek var mı acaba....

 

[merakli_72]

Sayın modalı öncelikle cevabınız için teşekkür ederim,
Fakat şöyle bir durum var ben belli kritere göre peş peşe açılan raporları DoCmd.SendObject ile HTML formatında mail atıyordum bu durumda ekrandaki raporu mail atamam sanırım
öneriniz ne olabilir