Sorunu aşağıdaki gibi çözmüş bulunuyorum. Tüm destek olan arkadaşlarıma teşekkür ederim.
Kod:
Sub sendGmail()
Set objCDOMail = CreateObject("CDO.Message")
konu = "##### | Bilgilendirme " & Me.SiparisID & " nolu siparişiniz ve " & Me.UrunID.Column(1) & " kodlu ürününüz tamamlanmıştır"
ana = "Merhaba değerli müşterimiz. Aşağıda bilgileri olan siparişiniz tarafımızca tamamlanmıştır." & vbNewLine
ana = ana & vbNewLine & "Sipariş No:" & Me.SiparisID & vbNewLine
ana = ana & vbNewLine & "Müşteri Sipariş No:" & Me.MusteriSiparisNo & vbNewLine
ana = ana & vbNewLine & "Ürün Kodu:" & Me.UrunID.Column(1) & vbNewLine
ana = ana & vbNewLine & "Ürün Açıklaması:" & Me.UrunAciklamasi & vbNewLine
ana = ana & vbNewLine & "Ürün Rengi:" & Me.SiparisUrunRenkID.Column(1) & vbNewLine
ana = ana & vbNewLine & "Termin Tarihi:" & Me.TerminTarihi & vbNewLine
ana = ana & vbNewLine & "Sipariş Miktarı:" & Me.ToplamSiparisMiktari & vbNewLine
ana = ana & vbNewLine & "Kapanış Tarihi:" & Me.KapandiTarih & vbNewLine
ana = ana & vbNewLine & "Bu mail otomatik gönderilen bir maildir. Lütfen cevap yazmayınız. İletişim için ####### adresi veya 0212 ### ## ## nolu telefonla iletişime geçiniz." & vbNewLine
ana = ana & vbNewLine & "Bizimle çalıştığınız için teşekkür ederiz." & vbNewLine
ana = ana & vbNewLine & "Saygılarımızla" & vbNewLine
ana = ana & "##### Planlama Birimi" & vbNewLine
objCDOMail.To = Me.FirmaEmaili
objCDOMail.From = "####@gmail.com"
objCDOMail.Subject = konu
'objCDOMail.AddAttachment "AnaSiparisOnizlemeRaporu"
objCDOMail.TextBody = ana
With objCDOMail.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "####@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "#####"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Update
End With
objCDOMail.Send
Set objCDOMail = Nothing
End Sub