Alternatif HTML Çıktısı
Function rangetoHTML(rng As Range) As String
Dim fso As Object
Dim ts As Object
Dim TempFile As String
Dim TempWB As Workbook
Dim HTML As String
Dim Cell As Range
Dim Row As Range
TempFile = Environ$("temp") & "\" & Format(Now...
Selamlar,
run-time error '1004' hatası veriyor ve maili göndermiyor. debug dediğimde aşağıdaki kodları sarı olarak gösteriyor.
With TempWB.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=TempFile, _
Sheet:=TempWB.Sheets(1).Name, _...
Function rangetoHTML(rng As Range)
Dim fso As Object
Dim ts As Object
Dim TempFile As String
Dim TempWB As Workbook
TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
rng.Copy
Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)...
çok teşekkür ederim.
Bunu uyguladığımda maili gönderiyor ama run-time error'70': permission denied hatası veriyor.debug dediğimde Kill ExcelDosyaYolu sarı ile işaretli. mail gitmesinde bir sıkıntı yok ama bu sonra sorun çıkarır mı bilmiyorum.
birde mail giderken sadece excel eki olarak...
...= EmailApp.CreateItem(olMailItem)
EmailItem.To = "gönderilecek mail adresi"
EmailItem.Subject = "Mail Başlığı"
EmailItem.HTMLBody = rangetoHTML(myRange)
EmailItem.Send
End Sub
Function rangetoHTML(rng As Range)
Dim fso As Object
Dim ts As Object
Dim TempFile As String
Dim...
...devam etme kararı aldım, tablodaki otomatik tablo biçimlendirmeyi kaldırınca "#####" sorunu ortadan kalmış oldu.
iyi günler,
Function RangetoHTML(rng1 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...
...deneyebilirsiniz. Bu sürüm, işlemi hızlandıracak ve daha anlamlı bir e-posta içeriği sağlayacaktır:
Optimize Edilmiş VBA Kodu:
Function rangetoHTML(rng As Range) As String
Dim html As String
Dim cell As Range
Dim rowHtml As String
' HTML başlıkları ve stil tanımları...
...düzeltebiliriz.
Aşağıdaki kodda, HTML oluşturma işlevine hücre genişliğini dinamik olarak ayarlayan bir CSS stili ekliyorum:
Function rangetoHTML(rng As Range) As String
Dim fso As Object
Dim ts As Object
Dim TempFile As String
Dim TempWB As Workbook
Dim cell As Range...
...UserInterfaceOnly:=True
'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...
...'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...
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.