Kapanırken gizli e-mail gönderilmesi

[pcman]

Ama Çevabını verdiniz

 

[eercu]

Sayın arkadaşlar mümkünse zip veya rar olarak ekleyebilmeniz mümkünmüdür? (Benim beyin tam basmadıda çalışır halini inceleyerek daha kolay algılayabileceğimi düşünüyorum)

 

[nihatkr]

Süper bir dayanışma olmuş.

Hakkaten dehşet için bir solukta okudum tüm mesajları. Bu zamanda bu dayanışma inanın süper. Ve beab05 gerçekten ellerin beynin dert görmesin.

Birde örnek dosya ekleseymişiniz varya süper ötesi bir çalışma olacakmış.

Teşekkürler.

 

[candar_canturk]

sayın beab05 hocam, hakikaten elinize zihninize sağlık.. harikasınız, benim bir sorum olacak müsadenizle, bunu yerel intranet ortamına göre kullanmanın bir yolu varmı mümkün olurmu? yerel kurum ağı exchange mail server üzerinden
ne dersiniz... bir de raporu göndermesini bahsettiğiniz pdf ye çevirmeyi lütfen bir açıklayabilirmisiniz benim gibi acemi birisi için

 

[beab05]

Merhaba;
Exchange Server hakkında fazla bir bilgim yok ama aşağıdaki kodlar işinize yarayabilir belki.. Benim deneme şansım yok

Dim mapiSession, mapiMessage, mapiRecipient

Set mapiSession = Server.CreateObject("MAPI.Session")
mapiSession.Logon "ProfileName", "password", False

Set mapiMessage = mapiSession.Outbox.Messages.Add()
mapiMessage.Subject = Request.Form("txtSubject")
mapiMessage.Text = Request.Form("txtBody")

Set mapiRecipient = mapiMessage.Recipients.Add()
mapiRecipient.Name = Request.Form("txtTo")
mapiRecipient.Type = 1 'CdoTo
mapiRecipient.Resolve

mapiMessage.Update
mapiMessage.Send

mapiSession.Logoff
Set mapiRecipient = Nothing
Set mapiMessage = Nothing
Set mapiSession = Nothing

 

[candar_canturk]

sağol beab05 hocam, yarın hemen deneyeceğim, insallah olur, ellerin dert görmesin.

 

[candar_canturk]

accessTOgmail

sayın ercuu ve sayın nihatkr bu örneği üzerinde gmail adresiniz, kullanıcı adınız ve şifrenizi tanımlayarak kullanabilirsiniz..

 

[Ersen]

10.11.2009 tarihine kadar çok güzel çalıştı. Bu tarihten sonra "Aktarım Sunucuya bağlanamadı.) RunTime Error mesajı veriyor ve

objCDOMail.Send

bu satırda takılıp kalıyor.

SMTP serverde bir sorun olduğunu düşünüyordum yaptığım incelemede herhangi bir sorun yoktu. Gmail SMTP server kullanıyordum ve ayarlarında hiçbir değişiklik yapmamıştım. Acaba Gmail tarafından yapılan bir değişiklik, yapmam gereken yeni bir ayar veya gözümden kaçan birşey mi var.

 

[pcman]

aşağıdaki satırda port numarasını 587 yapmalısın,

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

10.11.2009 tarihine kadar çok güzel çalıştı. Bu tarihten sonra "Aktarım Sunucuya bağlanamadı.) RunTime Error mesajı veriyor ve

objCDOMail.Send

bu satırda takılıp kalıyor.

SMTP serverde bir sorun olduğunu düşünüyordum yaptığım incelemede herhangi bir sorun yoktu. Gmail SMTP server kullanıyordum ve ayarlarında hiçbir değişiklik yapmamıştım. Acaba Gmail tarafından yapılan bir değişiklik, yapmam gereken yeni bir ayar veya gözümden kaçan birşey mi var.

 

[Ersen]

Sayın Pcman cevabın için teşekkür ederim.


Port numarasını değiştirmek de çözüm olmadı, yine aynı hata mesajı ile aynı yerde kalıyor. Mail gönderme işlemi gerçekleşmiyor.

 

[pcman]

mail sunucusunun çalıştığından emin olun, aynı kodlarla mail gönderiyorum, bir sorun görünmüyor,

Sayın Pcman cevabın için teşekkür ederim.


Port numarasını değiştirmek de çözüm olmadı, yine aynı hata mesajı ile aynı yerde kalıyor. Mail gönderme işlemi gerçekleşmiyor.

 

[Ersen]

mail sunucusunun çalıştığından emin olun, aynı kodlarla mail gönderiyorum, bir sorun görünmüyor,

Sorunun mail sunucusundan kaynaklandığını düşünüyordum ben de en başından beri. Ancak nasıl bir çözüm bulacağım konusunda kararsızım. Çünkü gmail'in ayarlarından pek birşey yapılacak gibi görünmüyor. Hata mesajı aşağıdaki gibi.

 

[nafis]

Merhaba;
Dosyayı tekrar ekleyebilirmisiniz.
Teşekkürederim.
Selamlar.

 

[Cemil1]

Bu kodlarla, vatandaşın Cookie bilgileri vb. de alınabilir değilmi arkadaşlar?

 

[modalı]

Sorunun mail sunucusundan kaynaklandığını düşünüyordum ben de en başından beri. Ancak nasıl bir çözüm bulacağım konusunda kararsızım. Çünkü gmail'in ayarlarından pek birşey yapılacak gibi görünmüyor. Hata mesajı aşağıdaki gibi.

Ersen Bey,

gmail im olmadığı için deneyemiyorum. Bir de aşağıdaki kodları deneyin:

Sub mtest()

Dim cdoConfig
Dim msgOne

Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "gmailname"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpw"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

.Update
End With

Set msgOne = CreateObject("CDO.Message")
Set msgOne.Configuration = cdoConfig
msgOne.To = "target@target.com"
msgOne.From = "I@dontThinkThisIsUsed.com"
msgOne.Subject = "Test email"
msgOne.TextBody = "It works just fine"
msgOne.send

End Sub

Probleminizin sebebi gmail e önce ssl128 ile bağlanılıp sonra email gönderme işleminin gerçekleşmesi.

İyi çalışmalar

 

[Ersen]

Sn. Modalı

İlginiz için çok teşekkür ederim. Verdiğiniz kodları denedikten sonra ekteki hata mesajını veriyor.

 

[modalı]

Sayın Ersen,

Umarım aşağıdaki satırlarda gerekli değişiklikleri yapmışınızdır:

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "gmailname"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpw"

İlkinde gmail kullanıcı adınız diğerine ise şifreniz olmalı

 

[Ersen]

Sayın Ersen,

Umarım aşağıdaki satırlarda gerekli değişiklikleri yapmışınızdır:

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "gmailname"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpw"

İlkinde gmail kullanıcı adınız diğerine ise şifreniz olmalı

Kodlarınızı denedim. Mail adresi ve şifreyi tekrar kontrol ettim. Ancak sonuç değişmedi. İsterseniz deneme imkanınız olması için size 1 adet gmail davetiyesi gönderebilirim.

Dim cdoConfig

Dim msgOne

Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "******@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "****an**5"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

.Update
End With

Set msgOne = CreateObject("CDO.Message")
Set msgOne.Configuration = cdoConfig
msgOne.To = "ersenibis@gmail.com"
msgOne.From = ******@gmail.com"
msgOne.Subject = "Denemedir"
msgOne.TextBody = "Bu bir denemedir"
msgOne.Send

msgOne.Send
satırında takılıyor ve üstte resmini verdiğim aktarım sunucuya bağlanamadı hatasını veriyor.

 

[beab05]

Merhaba;

Dim objCDOMail As Object
    
    
        Set objCDOMail = CreateObject("CDO.Message")

    objCDOMail.To = "giden@hotmail.com"
    objCDOMail.From = "kimden@gmail.com"
    'objCDOMail.CC = "xxxx@hotmail.com"
    objCDOMail.Subject = "gmail deneme"
    'objCDOMail.Addattachment "C:\kaynak.txt"
    
    objCDOMail.TextBody = "gmail denemesi"
    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") = "username"
    objCDOMail.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
    objCDOMail.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    objCDOMail.configuration.Fields.Update
    objCDOMail.send

    Set objCDOMail = Nothing

Eğer bu şekilde sorun yaşıyorsanız bu size özel bir sorun sanırım..

Username için, adresinizi "ersen@gmail.com" varsayarsak username "ersen" olacaktır. Buna da dikkat ediniz.

 

[Ersen]

Evet sayın beab maalesef bu konuya hiç dikkat etmemişim. Username sonuna @gmail eklemişim. Bu eki kaldırınca sorun çözüldü.

İlgilenen ve konuyu okuyan tüm arkadaşlara teşekkür ederim.