Kapanırken gizli e-mail gönderilmesi

[ADEMES]

textbody kısmına textboxlardaki bilgileri almak

başarı ile kullandım yazdığınız kodaları yalnız sıkıntım bu mail içeriği olan yere birden çok textbox içinde ki bilgileri nasıl getirebilirim .

saygılarımla,
adem eskici

 

[ADEMES]

başarı ile kullandım yazdığınız kodaları yalnız sıkıntım bu mail içeriği olan yere birden çok textbox içinde ki bilgileri nasıl getirebilirim .

saygılarımla,
adem eskici

 

[mesutaygun70]

Öncelikle çok güzel bi konu emeği geçen herkese teşekkürler. Aşağıdaki gibi kodumu yazdım.

Private Sub gönder()
Dim objCDOMail As Object
Set objCDOMail = CreateObject("CDO.Message")
objCDOMail.To = "aaa@gmail.com"
objCDOMail.From = "bb@hotmail.com"
objCDOMail.CC = "bb@hotmail.com"
objCDOMail.Subject = "gmail deneme"
objCDOMail.AddAttachment "\\A2-bilgisayar\belgeler\izinforumu2015.xls"
objCDOMail.TextBody = "Mail Deneme"
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") = "aa"
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123"
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOMail.Configuration.Fields.Update
objCDOMail.Send
Set objCDOMail = Nothing
End Sub


Fakat objCDOMail.Send satırı sarı yanıyor ve
İleti SMTP sunucusuna gönderilmedi ve sunucu not avaible yanıtını verdi şeklinde bir uyarı cıkıyor. Diğer kodlarıda uyarladım hep bu sorunla karşılaşıyorum. Yardımlarınızı bekliyorum. CDO kurdum.
İnternete ağdan bağlanıyorum. Sıkıntı olabilirmi?

 

[halit3]

Bunu denermisiniz.

Sub mailgonder_Click()

[COLOR="red"]kullanici_sahibi[/COLOR] = "[COLOR="Red"]kullanıcı@gmail.com[/COLOR]"
kullanici_parola = "[COLOR="red"]123456[/COLOR]"

Set objEmail = CreateObject("CDO.Message")

objEmail.From = [COLOR="red"]kullanici_sahibi[/COLOR]
objEmail.To = "deneme@hotmail.com" 'Gönderilecek e-mail adresi

objEmail.Subject = "konu"
objEmail.TextBody = "mesaj"
objEmail.AddAttachment "\\A2-bilgisayar\belgeler\izinforumu2015.xls"
With objEmail.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = kullanici_sahibi
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = kullanici_parola
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "[COLOR="red"]smtp.gmail.com[/COLOR]"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = [COLOR="red"]465[/COLOR]
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Update

End With
objEmail.Send

End Sub

Not bu kod gmail hesabında çalışır hotmail hesaplarında çalışmaz

 

[mesutaygun70]

Sub maigonder_Click()


kullanici_sahibi = "efulimsinsen@gmail.com"
kullanici_parola = "123456"

Set objEmail = CreateObject("CDO.Message")

objEmail.From = "efulimsinsen@gmail.com"
objEmail.To = "mesutaygun70@hotmail.com"

objEmail.Subject = "konu"
objEmail.TextBody = "mesaj"
objEmail.AddAttachment "\\A2-bilgisayar\belgeler\izinforumu2015.xls"
With objEmail.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = efulimsinsen
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = 123456
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Update

End With

objEmail.Send

End Sub

Kodum aynen yukardaki gibi (şifre haric)
587 kısmını 465 ve 25 olarakta denedim.
Module içine yazdığımda aktarım sunucuya bağlanılamadı uyarısını veriyor (.send kısmında kalıyor.
Çalışma kitabı içine yazdığımda automation error hatasını veriyor

 

[halit3]

Sub maigonder_Click()


kullanici_sahibi = "efulimsinsen@gmail.com"
kullanici_parola = "123456"

Set objEmail = CreateObject("CDO.Message")

objEmail.From = "efulimsinsen@gmail.com"
objEmail.To = "mesutaygun70@hotmail.com"

objEmail.Subject = "konu"
objEmail.TextBody = "mesaj"
objEmail.AddAttachment "\\A2-bilgisayar\belgeler\izinforumu2015.xls"
With objEmail.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = efulimsinsen
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = 123456
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Update

End With

objEmail.Send

End Sub

Kodum aynen yukardaki gibi (şifre haric)
587 kısmını 465 ve 25 olarakta denedim.
Module içine yazdığımda aktarım sunucuya bağlanılamadı uyarısını veriyor (.send kısmında kalıyor.
Çalışma kitabı içine yazdığımda automation error hatasını veriyor

Kullanıcı hesap sizinse aşağıdaki koddaki sadece şifre yerini yani kırmızı yeri yazınız ve deneyiniz.

Sub mailgonder_Click()

kullanici_sahibi = "efulimsinsen@gmail.com"
kullanici_parola = "[COLOR="Red"]123456[/COLOR]"

Set objEmail = CreateObject("CDO.Message")

objEmail.From = kullanici_sahibi
objEmail.To = "mesutaygun70@hotmail.com" 'Gönderilecek e-mail adresi

objEmail.Subject = "konu"
objEmail.TextBody = "mesaj"
'objEmail.AddAttachment "\\A2-bilgisayar\belgeler\izinforumu2015.xls"
With objEmail.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = kullanici_sahibi
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = kullanici_parola
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Update

End With
objEmail.Send
MsgBox "mail yollama işlemi bitti"

End Sub

ben bu bölümü iptal ettim belkide dosyayı bulamıyordur.

'objEmail.AddAttachment "\\A2-bilgisayar\belgeler\izinforumu2015.xls"

not kodun çalışması için mutlaga (@gmail.com) hesabınızın olması gerekiyor.

 

[mesutaygun70]

Teşekkürler Elimde mevcut iki tane gmail adresi vardı. Onlardan olmadı bir tane daha yeni aldım ondan oldu. Sorun çözüldü yeni mail adresi alınca

 

[halit3]

Teşekkürler Elimde mevcut iki tane gmail adresi vardı. Onlardan olmadı bir tane daha yeni aldım ondan oldu. Sorun çözüldü yeni mail adresi alınca

Aşağıdaki link deki açıklamaları okuyun ve güvenlik ayarlarını söylendiği gibi yapın belki kullanmayı düşünmediğiniz maillerle de kod çalışır.


https://support.microsoft.com/kb/2984937/tr?wa=wsignin1.0

 

[mesutaygun70]

Ben hep başka bir dosyayı göndermeye çalışmıştım. Üzerinde çalıştığım dosyanın kaydet butonuna basınca göndermeyi denedim yukarda ki kodda. Başka biri işlem yaptığı için eklenemiyor uyarısı veriyor. Acaba çıkışta değilde kaydette gönderilmesini sağlayabilirmiyiz. Birde gün tarih ve saat ve sayfa2 a1 hücresini de dosya ismine ekleyebilirmiyiz

 

[halit3]

Ben hep başka bir dosyayı göndermeye çalışmıştım. Üzerinde çalıştığım dosyanın kaydet butonuna basınca göndermeyi denedim yukarda ki kodda. Başka biri işlem yaptığı için eklenemiyor uyarısı veriyor. Acaba çıkışta değilde kaydette gönderilmesini sağlayabilirmiyiz. Birde gün tarih ve saat ve sayfa2 a1 hücresini de dosya ismine ekleyebilirmiyiz

Ben Access ile ilgili kodlardan anlamıyorum buradaki vermiş olduğum cevap sadece mail gönderme ile ilgilidir.

Bu sorunuz ile ilgili yeni bir konu başlığı altında sormanız daha iyi olacağını düşünüyorum.

Size iyi çalışmalar diliyorum.

 

[catalinastrap]

Halit hocam,
Benim soruma bakabilirmisiniz.(vba)

 

[halit3]

Halit hocam,
Benim soruma bakabilirmisiniz.(vba)

Bu konu başlığına sorunuzu isim vererek keşke sormasaydınız.

Sorunuzu görüyorum 120-320 excel kitabı yazıyorsunuz devamında 320 sayfa diyorsunuz dosyamı sayfamı veri aralıkları çok büyük 52 sütün ve sonu belli olmayan son satır bu verileri alacak olsanız bile dosya kilitlenir.

Arama yapsaydınız bazı linklerde benzer uygulamalar var.

ben iki adet link veriyorum ilgili linkleri irdeleyiniz.

http://www.excel.web.tr/f117/kapaly-dosyalardan-dy-veri-al-yontemi-ile-veri-t103524.html
http://www.excel.web.tr/f117/kapaly-dosyalardan-veri-alma-t68879.html