...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...
...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.
Sub SECILI_ALANI_MAIL_GONDER()
'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...
...ve logo ekleyebilirmiyim. yada mevcut imzayı resim olarakda ekleyebilirim. hangisi daha kolaysa.
musait oldugunuzda paylasırsanız sevinirim.
To = "ron@debruin.nl"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.HTMLBody = RangetoHTML(rng)...
...etmiş olursunuz.
Yazı karakteri ve sütun genişliğini otomatik yapınca biraz daha derli-toplu sonuç çıkabiliyor.
Deneyiniz.
Function RangetoHTML(rng As Range)
' Changed by Ron de Bruin 28-Oct-2006
' Working in Office 2000-2016
Dim fso As Object
Dim ts As Object
Dim TempFile As...
...ayarlayan sayıyı bulamadım yada eklemem mi gerekir bilmiyorum. Eğer biliyorsanız yardımlarınız için şimdiden teşekkürler.
Function RangetoHTML(rng As Range)
' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, and...
...'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...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.