DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
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
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
'objEmail.AddAttachment "\\A2-bilgisayar\belgeler\izinforumu2015.xls"
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.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
Ben Access ile ilgili kodlardan anlamıyorum buradaki vermiş olduğum cevap sadece mail gönderme ile ilgilidir.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
Bu konu başlığına sorunuzu isim vererek keşke sormasaydınız.Halit hocam,
Benim soruma bakabilirmisiniz.(vba)