Aşağıda Access üzerinden gmail hesabımla mail gönderebiliyorum. Sorum şu: bu kod çalıştığında "SiparisBilgileri" adlı raporum bu maille birlikte mailin ekine pdf olarak eklensin ve gitsin istiyorum. Bunun için kodda nasıl bir ekleme yapmak gerekir. Yardımcı olan olursa çok sevinirim.
Kullandığım office sürümü Access 2010 dur.
Saygılarımla
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 info@###### 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 "SiparisBilgileri"
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
