Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Yeni satır

mengene2
mengene2
Access Cevaplanmış Soruları
5
2970

Yeni satır

Çözüldü #1
mengene2
Aktif Üye
mengene2
Bul
Aktif Üye
Adı Soyadı: Fu.... Ar....
Yaşı: 49
Konum: İstanbul
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 22/01/2024,17:01
Yorumları: 201
Konuları: 52
Kayıt Tarihi: 01/09/2010
Teşekkür Puanı: 0
Mesleğiniz: Mühendis
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
Son Düzenleme: 02/11/2014, 12:21, Düzenleyen: mengene2.
Cevapla
#2
atoz112
Onursal Üye
atoz112
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 55
Konum: İstanbul
Ofis Versiyonu: Ofis 2007
Son Oturumu: 09/12/2017,11:02
Yorumları: 5.716
Konuları: 9
Kayıt Tarihi: 04/08/2009
Teşekkür Puanı: 1.172
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.
.rar gonderim_resmi.rar (Dosya Boyutu: 17,32 KB | İndirme Sayısı: 9)
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
C*e*l*o*y*c*e
Uzman
C*e*l*o*y*c*e
Bul
Uzman
Adı Soyadı: Ce.... Ya....
Konum: Ankara
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: Bugün,01:13
Yorumları: 3.586
Konuları: 78
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.047
Mesleğiniz: Yazılım
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..
Cevapla
#4
atoz112
Onursal Üye
atoz112
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 55
Konum: İstanbul
Ofis Versiyonu: Ofis 2007
Son Oturumu: 09/12/2017,11:02
Yorumları: 5.716
Konuları: 9
Kayıt Tarihi: 04/08/2009
Teşekkür Puanı: 1.172
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.
.rar YeniSatir-ATOZ.rar (Dosya Boyutu: 13,21 KB | İndirme Sayısı: 14)
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#5
mengene2
Aktif Üye
mengene2
Bul
Aktif Üye
Adı Soyadı: Fu.... Ar....
Yaşı: 49
Konum: İstanbul
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 22/01/2024,17:01
Yorumları: 201
Konuları: 52
Kayıt Tarihi: 01/09/2010
Teşekkür Puanı: 0
Mesleğiniz: Mühendis
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
Cevapla
#6
mengene2
Aktif Üye
mengene2
Bul
Aktif Üye
Adı Soyadı: Fu.... Ar....
Yaşı: 49
Konum: İstanbul
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 22/01/2024,17:01
Yorumları: 201
Konuları: 52
Kayıt Tarihi: 01/09/2010
Teşekkür Puanı: 0
Mesleğiniz: Mühendis
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
Son Düzenleme: 02/11/2014, 15:58, Düzenleyen: mengene2.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task