Sorgu için arama sonuçları: RangetoHTML

  1. Asri

    Otomatik Mail Gönderme

    ...With OutMail .To = mail .CC = "" .Subject = konu .Display .HTMLBody = mesaj & "<br>" & RangetoHTML(alana) & .HTMLBody 'Maili otomatik göndermek için .send deki tırnak işaretini kaldırın. '.send End With Set wrdEdit = Nothing...
  2. B

    Soru Mail Gönderme

    ama önce belirlediğim sütünü pdf ye çevirmesi gerek sonra da mail de dosya eki yapması gerek
  3. acar6783

    Soru Mail Gönderme

    Pdf olarak kaydettiğinizi varsayarsam sadece; .HTMLBody = RangetoHTML(rng) satırını kaldırın .Attachments.Add "C:\......" Kodlarını ekleyin. "C:\......" pdf dosyasının bulunduğu dizin...
  4. gkhn2

    Excel sayfasını outlook'tan mail gönderme hk.

    ...HK." .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...
  5. A

    İmza ekleme

    ...istediğimde sadece imza çıkıyor. Nerede hata yapıyorum yardımcı olabilir misiniz? HTMLBody = Cells(1, 16) & " merhaba," & Chr(10) & RangetoHTML(rng) & Chr(10) & "xxxxxxxxxxxxxxxxx." & "<br><br>" & "gondermenizi rica ederim." & Chr(10) & Chr(10) & "<br><br>" & .MySignature.readall...
  6. H

    Excel de Varsayılan Utf-8 ayarı yada makroda ayarlama

    ...Sonuçtan memnun kalmazsanız, UTF-8 yerine Windows-1254 deneyin. O da kodun içinde pasifleştirilmiş olarak var. Sub Test() Call RangeToHtml(Range("A1:B10"), "C:\TestFolder\Test.html") End Sub ' Sub RangeToHtml(rng As Range, fileName As String) Dim resBeg As String 'resBeg =...
  7. U

    Excel de Varsayılan Utf-8 ayarı yada makroda ayarlama

    ...bir çözüm kod var mı ? Office 365 proplus Türkçe kullanıyorum Konu hakkında yardımlarını bekliyorum. Tşk.ler Sub Test() RangeToHtml Range("A1:C3"), "test.html" End Sub Sub RangeToHtml(rng As Range, fileName As String) Dim resBeg As String resBeg =...
  8. Asri

    Excelde Mail Gönderimi

    ...için .send deki tırnak işaretini kaldırın. '.send .HTMLBody = mesaj & _ "<br>" & "A'nın verileri;" & "<br>" & RangetoHTML(alana) & _ "<br>" & "B'nın verileri;" & "<br>" & RangetoHTML(alana) & _ "<br>" & "C'nın verileri;" & "<br>" &...
  9. O

    Mail Gövde ve Mail Adres hücreden alma

    Resimdeki hata geldi
  10. turist

    Mail Gövde ve Mail Adres hücreden alma

    ....Subject = "Liste1r" '.BCC = "ttt@yyy.com" .HTMLBody = "Liste güncellenmiştir.Lütfen kontrol ediniz." & Chr(10) & Chr(10) & RangetoHTML(icerik) & Chr(13) & Chr(13) & "Tesekkürler." .Attachments.Add ActiveWorkbook.FullName .Display '.Send End With ActiveWorkbook.Close False Kill...
  11. K

    Resim olarak outlook'a kopyalama

    ...= mesaj & _ "Merhaba," & "<br>" & _ "<br>" & "Aşağıdaki gibidir:" & "<br>" & _ "<br>" & "1. tablo;" & "<br>" & RangetoHTML(alana) & _ "<br>" & "2. tablo" & "<br>" & RangetoHTML(alanb) & _ "<br>" & "Bilginize sunar, iyi çalışmalar dilerim." &...
  12. 1

    Mail gönderilmesi hk.

    ...Selection.Copy wrdEdit.Application.Selection.Paste '.Attachments.Add maildosya '.Htmlbody = "<br>" & RangetoHTML(alan) & .Htmlbody .Htmlbody = "<br>" & baslik & RangetoHTML(imza) & .Htmlbody '.send End With mailatma: Set evnmailitem =...
  13. 1

    Mail gönderirken imza bölümü

    ....Subject = "Konu deneme" .To = kime .cc = bilgi '.Attachments.Add maildosya '.Htmlbody = "<br>" & RangetoHTML(alan) & .Htmlbody .Htmlbody = "<br>" & baslik & .Htmlbody .display '.send End With mailatma: Set evnmailitem = Nothing Set...
  14. R

    logolar oluşturulan mail gövdesine gelmemekte

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

    Farklı sheetlerden farklı yerlere mail gönderme

    ...'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-2013 Dim rng As Range Dim OutApp As Object Dim OutMail As Object Set rng = Nothing On Error Resume Next 'Only the...
  16. B

    Mailin Body Kısmında Kalın,İtalik ve Renkli Yazı Yazma

    ...renk olsun istiyorum. Mümkün mü acaba ? İlginiz için teşekkür ederim. .Htmlbody = "<br>Sn. Yönetici,<br>" & _ "<br>Biriminize ait personellerin kart hareketleri aşağıdaki tabloda mevcuttur.<br>" & _ "<br>Bilgilerinize arz ederiz.<br>" & RangetoHTML(Alan) & .Htmlbody
  17. cavanoos

    Mail gönderiminde imza sorunu

    ...With OutMail .Display .To = "" .CC = "" .BCC = "" .Subject = "İFL HK." .HTMLBody = RangetoHTML(rng) & .HTMLBody .Send End With Set OutMail = Nothing Set OutApp = Nothing End Sub Function RangetoHTML(rng As Range)...
  18. B

    Otomatik Mailde From (İkincil Mail Adresi) Hatası

    ...personellerin kart hareketleri aşağıdaki tabloda mevcuttur.<br>" & _ "<br>Bilgilerinize arz ederiz.<br>" & RangetoHTML(Alan) & .Htmlbody .SendUsingAccount = OutApp.Session.Accounts.Item(Range("M2").Value) '.Send End With...
  19. Hakan ERDOST

    Mail gönderirken .jpg imza srunu

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

    Excel makro ile mail gönderimi sorunu

    ..."B") ' .CC = "" ' .BCC = "" ' .Subject = "MAİLİN KONUSUNU BU KISMA YAZABİLİRSİNİZ " ' .HTMLBody = strbody & RangetoHTML(rng) ' .Send ' End With ' On Error GoTo 0 ' With Application ' .EnableEvents = True ' .ScreenUpdating = True '...
Üst