Sorgu için arama sonuçları: RangetoHTML

  1. H

    Excel VBA HTML Biçimlendirme

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

    Excel VBA HTML Biçimlendirme

    İki kod hata vermeden çalışıyor ancak mail görüntülenmesinde Merhaba kelimesi yine siyah renkte görünüyor.
  3. veyselemre

    Excel VBA HTML Biçimlendirme

    Aşağıdakileri bir deneyin. .HTMLBody = "<p style=""color: #001221;"">Merhaba</p>" & "<br>" & RangetoHTML(rng) & "<br>" .HTMLBody = "<p style='color: #001221;'>Merhaba</p>" & "<br>" & RangetoHTML(rng) & "<br>"
  4. E

    Excel VBA HTML Biçimlendirme

    ...Excel de makro yoluyla mail gönderiyorum ancak mailin selam kelimesi olan Merhaba metnini html biçimlendirme ile mavi renge çeviremedim. Aşağıdaki kodu uyguluyorum ancak hata alıyorum. Yardımcı olur musunuz? ..HTMLBody = "<p style="color: #001221;">Merhaba</p>" & "<br>" & RangetoHTML(rng) &...
  5. O

    Seçili Alanı Mail Atma

    ....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...
  6. T

    makroda sayfa koruma hatası

    ...Mevcut makro Sub Mail_Selection_Outlook_Body() ActiveSheet.Unprotect ' Don't forget to copy the function RangetoHTML in the module. ' Working in Office 2000-2010 Dim rng As Range Dim OutApp As Object Dim OutMail As Object With Application .EnableEvents = False...
  7. T

    makroda sayfa koruma hatası

    ...diyor. Korumalı şekilde nasıl yapabilirim. Şimdiden teşekkürler Sub Mail_Selection_Outlook_Body() ' Don't forget to copy the function RangetoHTML in the module. ' Working in Office 2000-2010 Dim rng As Range Dim OutApp As Object Dim OutMail As Object With Application...
  8. A

    Seçili alan maili

    kodları denedim ama maile sadece resimdeki gibi bir alanı atıyor rica etsem eklediğim dosyadan kontrol edebilirmisiniz benim için sarıya boyadığım hücreleri yapıştırsa yeterli
  9. E

    Seçili alan maili

    ...'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 '(ZVI-2018-01-05: modified a bit) Dim rng As Range Dim OutApp As Object Dim IsCreated As Boolean 'Only the visible...
  10. A

    Seçili alan maili

    ...'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...
  11. M

    Seçili Alanı Resim Olarak Kopyalayıp Mail Gönderme

    ...'EmailItem.To = "mail adres" EmailItem.To = "mail adres" EmailItem.Subject = "08-16 Vardiya Sonu Raporu" 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 TempWB...
  12. M

    otomatik mail gönderme hk;

    ..."J").Value End With Set wrdEdit = Nothing Set OutMail = Nothing Set OutApp = Nothing End Sub Function RangetoHTML(rng As Range) ' Changed by Ron de Bruin 28-Oct-2006 ' Working in Office 2000-2013 Dim fso As Object Dim ts As Object Dim TempFile As String...
  13. tamer42

    Outlook Mail mesaj formatı hk.

    Korhan Hocam öncelikle teşekkürler, ilk linkte yer alan fonksiyonu uygulamaya çalıştığımda; .HTMLBody = RangetoHTML(rng) herhangi bir değişiklik olmadı, aynı şekilde düz metin olarak geliyor, ekli dosyada kontrol edebilir misiniz, iyi Çalışmalar. Function RangetoHTML(rng As Range) Dim...
  14. O

    Çözüldü Farklı Sayfaları Mail Gönderme

    ...Sub Mail_Sheet_Outlook_Body() '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 With Application...
  15. O

    Çözüldü Farklı Sayfaları Mail Gönderme

    ...With OutMail .To = Range("J2").Value .CC = "" .BCC = "" .Subject = Range("J3").Value .HTMLBody = RangetoHTML1(rng) .Send 'göndermemek için .Display End With On Error GoTo 0 With Application .EnableEvents = True...
  16. O

    Makro ile mail gönderme

    ...= "" .CC = "" .BCC = "" .Subject = "" .Attachments.Add ("C:\Users\kullanıcı\Desktop\Rapor Ek.xlsx") 'Gönderilecek sayfa yolu .HTMLBody = RangetoHTML(rng) .Send 'göndermemek için .Display End With On Error GoTo 0 With Application .EnableEvents = True .ScreenUpdating = True End With Set OutMail...
  17. O

    Makro ile mail gönderme

    ...= "" .CC = "" .BCC = "" .Subject = "" .Attachments.Add ("C:\Users\kullanıcı\Desktop\Rapor Ek.xlsx") 'Gönderilecek sayfa yolu .HTMLBody = RangetoHTML(rng) .Send 'göndermemek için .Display End With On Error GoTo 0 With Application .EnableEvents = True .ScreenUpdating = True End With Set OutMail...
  18. O

    Makro ile mail gönderme

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

    Excelden mail gönderme

    Sayın @Asri iyi forumlar. Kusura bakmayın konuyu hortlatmış bulunuyorum. Paylaşmış olduğunuz kodu kullanmaktayım. Belirli bir alanı mail olarak gönderimi yapabiliyorum. 2 husus var takıldığım. 1.si '.send işlevini aktif yapıyorum. Gönderim gerçekleşmiyor ekrana hata geliyor. 2.si Outlook...
  20. bulentkars

    Soru Makro İle Mail atarken Hücre renklerine göre mail oluşturma

    Kusura Bakmayın Lüfen, aynı şekilde italik ve kalın nasıl yapabiliriz.
Üst