Sorgu için arama sonuçları: RangetoHTML

  1. M

    Excel eki olarak otomatil mail gönderme

    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...
  2. E

    Excel eki olarak otomatil mail gönderme

    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, _...
  3. M

    Excel eki olarak otomatil mail gönderme

    ...EmailItem.Subject = "Mail Başlığı" EmailItem.Body = "Merhabalar, bilmem ne dosyanın eki ektedir." EmailItem.HTMLBody = rangetoHTML(myRange) ExcelDosyaYolu = Environ$("temp") & "\ExcelEki_" & Format(Now, "dd-mm-yy h-mm-ss") & ".xlsx" ThisWorkbook.SaveAs...
  4. E

    Excel eki olarak otomatil mail gönderme

    ...EmailItem.Subject = "Mail Başlığı" EmailItem.Body = "Merhabalar, bilmem ne dosyanın eki ektedir." EmailItem.HTMLBody = rangetoHTML(myRange) ExcelDosyaYolu = Environ$("temp") & "\ExcelEki_" & Format(Now, "dd-mm-yy h-mm-ss") & ".xlsx" ThisWorkbook.SaveAs ExcelDosyaYolu...
  5. M

    Excel eki olarak otomatil mail gönderme

    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)...
  6. E

    Excel eki olarak otomatil mail gönderme

    ç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...
  7. M

    Excel eki olarak otomatil mail gönderme

    ...EmailItem.Subject = "Mail Başlığı" EmailItem.Body = "Merhabalar, bilmem ne dosyanın eki ektedir." EmailItem.HTMLBody = rangetoHTML(myRange) ExcelDosyaYolu = Environ$("temp") & "\ExcelEki_" & Format(Now, "dd-mm-yy h-mm-ss") & ".xlsx" ThisWorkbook.SaveAs ExcelDosyaYolu...
  8. E

    Excel eki olarak otomatil mail gönderme

    ...= 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...
  9. D

    Belirli kriterlere göre süzüp html formatında mail gönderme.

    ...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...
  10. tugkan

    Belirli kriterlere göre süzüp html formatında mail gönderme.

    ...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ı...
  11. tugkan

    Belirli kriterlere göre süzüp html formatında mail gönderme.

    ...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...
  12. P

    Belirli kriterlere göre süzüp html formatında mail gönderme.

    ...EmailItem.To = "test@test.com.tr" EmailItem.Subject = "Vadesi gelen/yaklaşan kredi/krediler" EmailItem.HTMLBody = rangetoHTML(myRange) 'EmailItem.Send EmailItem.Send On Error GoTo 0 sh.Range("$A$2:$D$5000").AutoFilter End Sub
  13. tugkan

    Belirli kriterlere göre süzüp html formatında mail gönderme.

    ...With EmailItem .To = "test@test.com.tr" .Subject = "Vadesi gelen/yaklaşan kredi/krediler" .HTMLBody = rangetoHTML(myRange) .Send ' Gönderim End With ' Filtreyi temizle sh.AutoFilterMode = False On Error GoTo 0 End Sub Function...
  14. D

    Belirli kriterlere göre süzüp html formatında mail gönderme.

    ...EmailItem.To = "test@test.com.tr" EmailItem.Subject = "Vadesi gelen/yaklaşan kredi/krediler" EmailItem.HTMLBody = rangetoHTML(myRange) 'EmailItem.Send EmailItem.Send On Error GoTo 0 ActiveSheet.Range("$A$2:$D$5000").AutoFilter 'Field:=2 'ActiveSheet.ListObjects("Sorgu1").Range.AutoFilter...
  15. D

    Uyarı maili alma

    ...EmailItem.To = "test@test.com.tr" EmailItem.Subject = "Vadesi gelen/yaklaşan kredi/krediler" EmailItem.HTMLBody = rangetoHTML(myRange) 'EmailItem.Send EmailItem.Send On Error GoTo 0 ActiveSheet.Range("$A$2:$D$5000").AutoFilter 'Field:=2 'ActiveSheet.ListObjects("Sorgu1").Range.AutoFilter...
  16. B

    HTMLBODY(ALAN) İÇERİSİNE EXCEL EKRAN GÖRÜNTÜSÜ EKLEME

    ...With OutMail .To = Mail .CC = mailcc .Subject = mailkonu .Display .HTMLBody = mailmesaj & RangetoHTML(alan) & .HTMLBody .Attachments.Add "C:\Users\bedriye.arica\Desktop\KALİTE STAMPING.xlsm" End With Set wrdEdit = Nothing...
  17. B

    HTMLBODY(ALAN) İÇERİSİNE EXCEL EKRAN GÖRÜNTÜSÜ EKLEME

    ...With OutMail .To = Mail .CC = mailcc .Subject = mailkonu .Display .HTMLBody = mailmesaj & RangetoHTML(alan) & .HTMLBody .Attachments.Add "C:\Users\.......................\Desktop\STAMPING.xlsm" End With Set wrdEdit = Nothing...
  18. E

    VBA Kodunun Güvenilirliği

    ...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...
  19. E

    Makro Atanan Butona Basıldığında Log Tutma

    ...'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...
  20. H

    Excel VBA HTML Biçimlendirme

    .HTMLBody = "<p style='color:#6495ED;'>Merhaba</p>" & "<br>" & RangetoHTML(rng) & "<br>" .
Üst