Kapanırken gizli e-mail gönderilmesi

ADEMES · 1 Şubat 2014

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 · 1 Şubat 2014

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 · 11 Şubat 2015

Ö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 · 11 Şubat 2015

Bunu denermisiniz.

Kod:

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 · 12 Şubat 2015

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 · 12 Şubat 2015

mesutaygun70' Alıntı:
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.

Kod:

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.

Kod:

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

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

mesutaygun70 · 13 Şubat 2015

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 · 13 Şubat 2015

mesutaygun70' Alıntı:
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 · 13 Şubat 2015

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 · 13 Şubat 2015

mesutaygun70' Alıntı:
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 · 13 Şubat 2015

Halit hocam,
Benim soruma bakabilirmisiniz.(vba)

halit3 · 13 Şubat 2015

catalinastrap' Alıntı:
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

Kapanırken gizli e-mail gönderilmesi

ADEMES

ADEMES

mesutaygun70

halit3

Uzman

mesutaygun70

halit3

Uzman

mesutaygun70

halit3

Uzman

mesutaygun70

halit3

Uzman

catalinastrap

Özgür

halit3

Uzman