Merhaba arkadaşlar,
Gmail ile mail göndermek istiyorum. Aşağıda textbody kısmını düzenledim ama ilk 2 satırdan sonrasını alt alta yazmıyor. İlk iki satırda sorun yok ondan sonrakileri textte yanyana yazıyor. Nasıl alt alta yazdırabilirim.
Kod:
objCDOMail.TextBody = "Sipariş No:" & Me.SiparisID & vbNewLine & _
"Müşteri Sipariş No:" & Me.MusteriSiparisNo & vbNewLine & _
"Ürün Kodu:" & Me.UrunID.Column(1) & vbNewLine & _
"Ürün Açıklaması:" & Me.UrunAciklamasi & vbNewLine & _
"Ürün Rengi:" & Me.SiparisUrunRenkID.Column(1) & vbNewLine & _
"Termin Tarihi:" & Me.TerminTarihi & vbNewLine & _
"Sipariş Miktarı:" & Me.ToplamSiparisMiktari & vbNewLine & _
"Kapanış Tarihi:" & Me.KapandiTarih & vbNewLine
Sayın mengene2,
Talebinize yönelik olarak aşağıdaki bilgilendirmelerin yeterli olacağı kanısındayım.
Deneme amaçlı olarak eklediğiniz kodlama satırına benzer nitelikte aşağıdaki gibi bir kodlama yapılarak mail gönderme işlemi uygulandığında,başarılı şekilde istediğiniz hali ile gönderimde bulunulduğu gözlenmiştir.
EK’te;mailin,istenildiği şekilde gönderildiğini gösteren resim bulunmaktadır.
Kod:
.TextBody = "1:" & "a" & vbNewLine & _
"2:" & "b" & vbNewLine & _
"3:" & "c" & vbNewLine & _
"4:" & "d" & vbNewLine & _
"5:" & "e" & vbNewLine & _
"6:" & "f" & vbNewLine & _
"7:" & "g" & vbNewLine & _
"8:" & "h" & vbNewLine
Bir ihtimal,kodlamada kullandığınız form denetim kutuları ya da tablo alan içeriklerine veya kayıt bilgilerine yönelik bir sorun olsa gerek,diye düşünüyorum.zira,bunarlın dışında kalan yazımda bir sorun yok.belirtilen hususları tekrar gözden geçirerek kontrol etmenizde fayda olacaktır.bilgilerinize.
iyi çalışmalar,
saygılar.
objCDOMail.TextBody = "Sipariş No:" & Me.SiparisID & vbcrlf & _
"Müşteri Sipariş No:" & Me.MusteriSiparisNo & vbcrlf & _
"Ürün Kodu:" & Me.UrunID.Column(1) & vbcrlf & _
"Ürün Açıklaması:" & Me.UrunAciklamasi & vbcrlf & _
"Ürün Rengi:" & Me.SiparisUrunRenkID.Column(1) & vbcrlf & _
"Termin Tarihi:" & Me.TerminTarihi & vbcrlf & _
"Sipariş Miktarı:" & Me.ToplamSiparisMiktari & vbcrlf & _
"Kapanış Tarihi:" & Me.KapandiTarih & vbcrlf
şeklinde denermisiniz..
sayın mengene2,
sayın Celoyce'nin de belirttiği gibi,bu işlem için farklı ifadeler kullanılabilir.
vbNewLine
Chr(13) & Chr(10)
vbCrLf
satır atlama ya da diğer bir ifade ile alt satıra geçme konusunda yukarıdaki üç ifadeyi de kullanabilirsiniz.
EK'te;bu hususa dair hazırlanmış örnek uygulama mevcuttur.örnek anlatımda,mesajbox kullanılmıştır.inceleyebilirsiniz.
fakat bana göre yazımda sorun yok,bir önceki mesajımda da belirttiğim örnekleme olarka kullanılınca.diğer kısımlarda sorun var gibi.bilgilerinize.
iyi çalışmalar,
saygılar.
Merhaba,
Malesef sayın atoz112 ve sayın celoyce nin yazdıkları kodlama ile satır satır elde edemiyorum. Atoz112 nin çözümünde harflerin tırnak içinde yazılması satır satır olmasını sağlıyor. Fakat alan isimlerini yazınca olmuyor. Alan isimlerini de tırnak içinde yazamadığımızdan dolayı satır satır görüntüyü elde edemedim.
Yardımcı olursanız çok sevinirim.
Saygılarımla
Merhaba Arkadaşlar
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