Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] Access Ile Gmail Mail Gönderiminde Karakter Sorunu

[VBA] Access Ile Gmail Mail Gönderiminde Karakter Sorunu
mengene
Kıdemli Üye >1000

*
Kayıt Tarihi: 15.06.2010
Toplam 242 konu açtı.
Toplam 1.194 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 0 / 0
#1
16-12-2019, 10:39
Merhaba Arkadaşlar,

Aşağıdaki kodu gmail den mail göndermek için kullanıyorum. Fakat ekteki gibi karşı tarafa düşen maillerde karakter sorunu oluşuyor. Bu neden kaynaklanabilir?. Araştırdım ama forumda birşey bulamadım. Konu hakkında ilgilenen bir arkadaş olursa memnun olurum. Kod çalışıyor sorun yok fakat Türkçe karakterlerde sıkıntı oluyor.

Bol Access li günler,

Visual Basic
  1. If AtananPosta = -1 Then
  2. MsgBox "Daha önce e-posta göndermişsiniz.."
  3. Else
  4. If Nz(Email, "") = "" Then
  5. MsgBox AtananKisi.Column(1) & " adına kayıtlı bir e-posta kaydı yok!!"
  6. Else
  7. baslik = "İŞ TAKİP [" & Parent.MusteriID.Column(1) & "]" & " İŞİN AÇIKLAMASI : " & Parent.IsinAciklamasi
  8.  
  9.  
  10.  
  11.  
  12. altbaslik = "MÜŞTERİ : " & Parent.MusteriID.Column(1) & vbNewLine & vbNewLine & "OLUŞTURAN : " & Parent.OlusturanKisi.Column(1) & vbNewLine & "İŞİN ATANDIĞI KİŞİ : " & Me.AtananKisi.Column(1) & vbNewLine & _
  13. "İŞİN AÇIKLAMASI : " & Parent.IsinAciklamasi & vbNewLine & vbNewLine & vbNewLine & _
  14. "DETAY AÇIKLAMA : " & Me.Konu & vbNewLine_
  15.  
  16. If Nz(KonununSonucu, "") <> "" Then
  17. altbaslik = altbaslik & vbNewLine & _
  18. "KONUNUN SONUCU : " & Me.KonununSonucu & vbNewLine
  19. End If
  20.  
  21.  
  22.  
  23. altbaslik = altbaslik & vbNewLine & "KONU TİPİ : " & Me.KonuTipi & vbNewLine
  24. altbaslik = altbaslik & vbNewLine & "İŞ ATAMA TARİHİ : " & Me.IsAtamaTarihi & vbNewLine
  25. altbaslik = altbaslik & vbNewLine & "TERMİN TARİHİ : " & Me.TerminTarihi & vbNewLine
  26. Dim objCDOMail As Object
  27.  
  28. Set objCDOMail = CreateObject("CDO.Message")
  29. objCDOMail.To = Me.Email
  30. objCDOMail.FROM = "bilgecrm@gmail.com"
  31.  
  32. objCDOMail.Subject = baslik
  33. 'objCDOMail.Addattachment "C:\trz.txt"
  34.  
  35.  
  36. objCDOMail.TextBody = altbaslik
  37.  
  38. With objCDOMail.Configuration.Fields
  39. .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
  40.  
  41. .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  42. .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
  43. .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  44. .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "........."
  45. .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "........."
  46. .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
  47. .Update
  48. End With
  49. objCDOMail.Send
  50.  
  51. Set objCDOMail = Nothing
  52.  
  53. AtananPosta = -1
  54. MsgBox " E-Posta iletildi.."
  55.  
  56. End If
  57. End If




Eklenti Dosyaları
.png   hata.png (Boyut: 17,45 KB / İndirilme: 106)



  Bul
  Alıntı
Bu mesajı beğenenler:
mengene
Kıdemli Üye >1000

*
Kayıt Tarihi: 15.06.2010
Toplam 242 konu açtı.
Toplam 1.194 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 0 / 0
#2
17-12-2019, 17:31
Üstadlardan destek bekliyorum.

Saygılarımla,



  Bul
  Alıntı
Bu mesajı beğenenler:
beab05
Forum Yöneticisi

*
Kayıt Tarihi: 05.03.2008
Toplam 252 konu açtı.
Toplam 3.105 yorum yaptı.
Toplam 131 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 9 / 23
#3
18-12-2019, 16:14
Merhaba;


Aşağıdaki gibi deneyebilirsiniz..

Visual Basic
  1. objCDOMail.BodyPart.Charset = "utf-8"
  2.  
  3. objCDOMail.TextBodyPart.Charset = "utf-8"


Javascript
  1. this.setState({sign:"Here comes the sun...."})







  Website   Bul
  Alıntı
Bu mesajı beğenenler: Taruz
mengene
Kıdemli Üye >1000

*
Kayıt Tarihi: 15.06.2010
Toplam 242 konu açtı.
Toplam 1.194 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 0 / 0
#4
18-12-2019, 16:42
teşekkür ederim sorun bununla çözümlenmiş oldu.



  Bul
  Alıntı
Bu mesajı beğenenler:
serdem48
Aktif Üye 100-150

*
Kayıt Tarihi: 23.09.2014
Toplam 26 konu açtı.
Toplam 127 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003, Office 2007 TR, Office 2010 TR, Office 2013 TR,
Beğeniler: 5 / 0
#5
19-12-2019, 11:56
win 10 ve 32 bit access ile denedim sunucuya bağlanılamadı diye hata aldım. Nah



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Sorgudaki Bilgileri Otomatik Tek Tek Mail Gönderme cirdakc 3 443 08-11-2024, 21:40
Son Mesaj: dsezgin
  Ilgili Raporu Mail Gönderme Mtaner 6 1.490 21-05-2024, 07:09
Son Mesaj: dsezgin
access-sql-9 [RAPOR] Türkçe Karakter Sorunu sevvalkalay 5 424 13-03-2024, 11:26
Son Mesaj: sevvalkalay
  [VBA] Mail Ile Tablo Ya Da Sorgu Gönderme benuva 5 590 17-06-2023, 12:18
Son Mesaj: benuva
  [FORM] Liste Kutusundaki Veriyi Mail Ile Göndermek husem 8 1.513 27-01-2023, 00:52
Son Mesaj: BeyTor
  [FORM] Access Aktif Olan Formu, Mail Olarak Göndermek. Fenerli88 5 753 25-01-2023, 02:14
Son Mesaj: BeyTor
  Access'de Tasarım Modundan çıkınca Kasma Sorunu BeyTor 3 567 19-01-2023, 08:53
Son Mesaj: BeyTor
  [FORM] Mail gönderimi. orderyazbim 14 7.056 19-11-2022, 20:10
Son Mesaj: firatmalkoc

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi