Yeni satır

02/11/2014, 12:02

mengene2

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



Saygılarımla
02/11/2014, 14:28

atoz112

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.
02/11/2014, 14:31

C*e*l*o*y*c*e

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..
02/11/2014, 15:01

atoz112

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.
02/11/2014, 15:04

mengene2

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
02/11/2014, 15:57

mengene2

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