Sorgu için arama sonuçları: RangetoHTML

..."<BR>" & "<Strong>" & Alan2 & "</Strong>" & _ "<BR>" & Alan3 & "<BR>" & "<font color=blue>" & Alan4 & "</font Color>" & "<BR>" & Alan5 & RangetoHTML(MyRange) & _ "İyi Çalışmalar Dilerim " HTMLBody kısmında aşağıdaki gibi HTML kodları kullanabilirsiniz. "<BR>" Bir satır boşluk...

Teşekkür ederim Ömer bey

Örnektir, sanırım kendinize uyarlayabilirsiniz Set rng=Range("I15:P31") .HTMLBody = Metin1 & RangetoHTML(rng) & Metin2 Arama menüsünden size yardımı olacak bir konu başlığını da ilave ediyorum https://www.excel.web.tr/threads/maile-tablo-ve-grafik-eklemek.193299/#post-1075562

...Selection Set EmailApp = New Outlook.Application Dim EmailItem As Outlook.MailItem Set EmailItem = EmailApp.CreateItem(olMailItem) EmailItem.To = "" EmailItem.Subject = "Deneme" EmailItem.HTMLBody = rangetoHTML(myRange) EmailItem.Send ActiveSheet.Range("$A$1:$K$116").AutoFilter Field:=3...

...On Error Resume Next With OutMail .To = "" .CC = "" .BCC = "" .Subject = "" .HTMLBody = RangetoHTML(rng) .Display 'göndermek için .Send End With On Error GoTo 0 With Application .EnableEvents = True...

Öncelikle verdiğim linkte RangetoHTML isminde fonksiyon var onu kendi dosyanızdaki modüle almalısınız Sonrasında body kısmını aşağıdaki gibi düzenleyip kullanabilirsiniz. .Body = RangetoHTML(Range("A1:Z10"))

Korhan bey ilginiz için teşekkürler ama fark ettiyseniz mesajı gecenin 3 de atmışım, işin içinden çıkamadım için yardım istedim , bahsetmiş olduğunuz linkte ki makrolar çözebilseydim konuyu açmazdim

Merhaba, İnceleyiniz. https://www.excel.web.tr/search/275928/?q=RangetoHTML&o=date

...Set OutlookMsg = OutlookApp.CreateItem(0) With OutlookMsg .Display .HTMLBody = "Merhabalar, " & "<BR>" & RangetoHTML(MyRange) & "<BR>" & "İyi çalışmalar " & "<BR>" & .HTMLBody .To = Range("V2").Text 'Kime .cc = Range("V3").Text 'Bilgi...

...GÖNDER 'http://msdn.microsoft.com/en-us/lib...odeltoSendMailPart2_MailingRangeSelectionBody ' You need to use this module with the RangetoHTML subroutine. ' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, and...

...'http://msdn.microsoft.com/en-us/lib...odeltoSendMailPart2_MailingRangeSelectionBody ' You need to use this module with the RangetoHTML subroutine. ' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, and Outlook 2010...

...> Dim rng As Range, rng1 As Range yaptım Set rng = Sheets("HAYMANA").Range("A4:N35").SpecialCells(xlCellTypeVisible) Set rng1 = Sheets("HAYMANA").Range("A36:N65").SpecialCells(xlCellTypeVisible) bunu ekledim ve son olarak da .HTMLBody = RangetoHTML(rng) & RangetoHTML(rng1) altı çiziliyi...

Merhabalar, excel'de belirlenen hücreleri vba makroyla mail olarak gönderme kodunu yazdım. Bu kodda A7 ile N25 sütunları arasındaki satır ve sütunlar gönderiliyor. Buna ek olarak A1 ve N4 arasındaki kodları da eklemek istiyorum yani 2 farklı hücreyi birleştirip o şekilde mail göndermek...

Hocam Teşekkürler. ".HTMLBody = RangetoHTML(alan1) & "<br><br>" & RangetoHTML(alan2)" olarak revize edildi. "Set alan2 = Range("A1:K50") Set alan1 = Range("P3:U16") " kodları değiştirilerek dosyayı reviz ettim. Ellerinize sağlık. Syg, Syg,

...için .send deki tırnak işaretini kaldırın. '.send .HTMLBody = "Merhaba" & "<br><br>" & "Veriler Aşağıdadır." & "<br><br>" & RangetoHTML(alan1) & "<br><br>" & RangetoHTML(alan2) & .HTMLBody End With Set wrdEdit = Nothing Set OutMail = Nothing Set...

...With OutMail .Subject = Range("Y1") .Display 'Maili otomatik göndermek için .send deki tırnak işaretini kaldırın. '.send .HTMLBody = RangetoHTML(alan) & .HTMLBody End With Set wrdEdit = Nothing Set OutMail = Nothing Set OutApp = Nothing End Sub Function RangetoHTML(rng As Range) ' Changed...

...'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm 'Don't forget to copy the function RangetoHTML in the module. 'Working in Excel 2000-2016 Dim rng As Range Dim OutApp As Object Dim OutMail As Object Set rng = Nothing On Error Resume Next 'Only the...

....CC = mailcc .Subject = mailkonu .Display 'Hemen göndermek için '.send .HTMLBody = mailmesaj & RangetoHTML(alan) & .HTMLBody End With Set wrdEdit = Nothing Set OutMail = Nothing Set OutApp = Nothing End Sub Function...

Merhaba Sayın mancubus, Paylaşımınız çok faydalı, çok teşekkürler. Ancak aşağıdaki şekilde hata aldım ve sebebini anlayamadım. Yardımcı olabilir misiniz.

Merhaba. Ekteki dosyayı yıllardır sorunsuz kullanıyoruz. Ana_Sayfa sayfasında açıklama mevcut. Sizin tabloyu da kopyalayarak fikir vermeye çalıştım. Meşhur :) RangetoHTML KTF ile range tabloya dönüşüyor. Sorunuz olursa cevaplamaya çalışırım.