Kapanırken gizli e-mail gönderilmesi

[beab05]

ilk mesajımda 2.verdiğim kodu uygularsanız ekler sorunsuz gönderiliyor..

 

[pcman]

mesaj 2 sayfaya atmış görmemişim

benim dosyaya göndermedeki kastım mail değil ek olayını hallettim

Dim stDocName As String

stDocName = "ekran"
DoCmd.OutputTo acReport, stDocName , acFormatXLS

burda raporu xls olarak kaydedilecek yeri soruyor

benim yapmak istediğim benim verdiğim dosya adı ve belirttiğim yere direk kaydedilmesi...

access raporunu belirttiğim dosyaya gönderemiyorum otomatik

 

[akd]

Malesef ben bu işi beceremedim arkadaşlar,
hotpop dan e-mail bile aldım smtp destekliyor diye onunlada denedim bir türlü yapamadım...

 

[beab05]

Malesef ben bu işi beceremedim arkadaşlar,
hotpop dan e-mail bile aldım smtp destekliyor diye onunlada denedim bir türlü yapamadım...

SSL istiyor olabilir, öyleyse schemas eklemek gerek..

objCDOMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

True, false deneyiniz.. SMTP server ismini doğru yazdığınızdan emin olunuz ve hangi portu kullanıyor öğreniniz..

Ek: Siz şifre ve kullanıcı ismi girilen kodu kullanın. Port olarak 25 miş diğer ayarları da normal extra bişeye gerek yok gibi. 2004 yılında biri smtp serverının çalışmadığını yazmış, Düzeltmişlerdir değil mi?

 

[akd]

sayın beab05, kodu aşağıdaki gibi yaptım bir bakın,
Private Sub Komut18_Click()

Dim objCDOMail As Object



Set objCDOMail = CreateObject("CDO.Message")

objCDOMail.To = "akd1961@hotpop.com"
objCDOMail.From = "akd1961@hotpop.com"
'objCDOMail.CC = "akd1961@hotmail.com" '‘ bilgi mailidir
objCDOMail.Subject = "deneme maili"

objCDOMail.TextBody = "deneme mesajı"

objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.hotpop.com"
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "akd1961@hotpop.com"
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "akd2508"
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOMail.Configuration.Fields.Update
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
objCDOMail.Send

Set objCDOMail = Nothing
End Sub

 

[beab05]

Username olarak sadece akd1961 yazmalısınız ama ne yazık ki hotpop ta olmuyor, zaten isminde bir tuhaflık var

 

[Zeki Gürsoy]

CDO ile daha kullanışlı oldu. Teşekkür ederim sayın beab05.
"gmail" hesabım ile test ettim ve aşağıdaki şekilde sorunu çözdüm.

Sub Mail()
Dim objCDOMail As Object
 
Set objCDOMail = CreateObject("CDO.Message")
With objCDOMail
.To = "[EMAIL="xxx@hotmail.com;zzz@hotmail.com"]xxx@hotmail.com;zzz@hotmail.com[/EMAIL]"
.From = "anemos"
.Subject = "deneme maili"
.TextBody = "deneme mesajı"
.AddAttachment "C:\Test.xls"
 
.Configuration.Fields.Item( _
    "[URL]http://schemas.microsoft.com/cdo/configuration/smtpusessl[/URL]") = True
.Configuration.Fields.Item( _
    "[URL]http://schemas.microsoft.com/cdo/configuration/sendusing[/URL]") = 2
.Configuration.Fields.Item( _
    "[URL]http://schemas.microsoft.com/cdo/configuration/smtpserver[/URL]") = "smtp.gmail.com"
.Configuration.Fields.Item( _
    "[URL]http://schemas.microsoft.com/cdo/configuration/smtpauthenticate[/URL]") = 1
.Configuration.Fields.Item( _
    "[URL]http://schemas.microsoft.com/cdo/configuration/sendusername[/URL]") = "xxx"
.Configuration.Fields.Item( _
    "[URL]http://schemas.microsoft.com/cdo/configuration/sendpassword[/URL]") = "xxx"
.Configuration.Fields.Item( _
    "[URL]http://schemas.microsoft.com/cdo/configuration/smtpserverport[/URL]") = 25
    
.Configuration.Fields.Update
 
.Send
End With
 
Set objCDOMail = Nothing
End Sub

 

[beab05]

Ben gmail smtp desteklemiyor diye hiç denememiştim bile bunu duymak harika oldu . Teşekkürler sayın anemos

 

[modalı]

Arkadaşlar,

Uğraştım ve en sonunda ttmail.com dan da bu işi başarabildim.

Private Sub Komut0_Click()
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) = "[EMAIL="user@ttmail.com"]user@ttmail.com[/EMAIL]"
.Item(cdoSendPassword) = "password"
.Item(cdoSMTPServerPort) = 25
.Update
End With
With iMsg
Set .Configuration = iConf
.To = "[EMAIL="alıcı@ornek.com"]alıcı@ornek.com[/EMAIL]"
.From = """ibo"" <[EMAIL="iboozen@mail.com"]iboozen@mail.com[/EMAIL]>"
.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
End Sub

Tek problem CDO referansını eklemek

İyi çalışmalar

 

[akd]

Merhaba arkadaşlar,
Sayın modalı bu bahsettiginiz CDO referensını nereden bulabilirim.
Lütfen link verebilrimisiniz.
İyi çalışmalar...

 

[hozzeybek]

Sadece Syn Modalının verdiği örneği gmaile uyarlayabildim güzel çalışıyor
referanslar bölümünden Microsoft CDO yu ekleyeceksiniz.

 

[osmn06]

anemos verdiği kodu uyguladım ve ( Expected End Sub ) diye bi hata verdi bu nedir acaba

 

[osmn06]

sayın hozzeybek kodu ekleyebilirmisin

 

[hozzeybek]

Modalının kodlarının aynısı sadece ttmail yerine gmail yazacaksın
bir de referansı ekliyeceksin

 

[osmn06]

sayın hozzeybek
to ve from yazan yerde iki mail adresi var oraya ne yazacağız

 

[modalı]

Sayın osman06,

To: e-mail alıcısınon adresi
From: Göndericinin adresi

İyi çalışmalar

 

[osmn06]

sayın modalı verdiğiniz kodu ekledim ttmail yerini gmail olarak değiştirdim
to:hotmailimi yazdım
form : burayada hotmail yazdım yanlışmı yapıyorum
sunucu gönderenini mailini reddetti diye bi hata açılıyor

 

[hozzeybek]

to= alıcının mail adresi
from = Maili gönderenin adresi

 

[Zeki Gürsoy]

İhtiyaç duyduğunuz referans system32 içinde cdosys.dll dosyasıdır.

 

[sandalet]

walla ellerinize bilginize sağlık