Sorgu için arama sonuçları: RangetoHTML

...olursanız çok sevinirim.. Teşekkürler Dim Adres As String Sub Mail_Selection_Range_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 Set rng = Nothing...

...Next With OutMail .To = [F1] .CC = "" .BCC = "" .Subject = [A1] + " " + [B1] .HTMLBody = RangetoHTML(rng) .Display End With On Error GoTo 0 With Application .EnableEvents = True .ScreenUpdating = True End...

...Ekli dosyada tam olarak anlatmak istediğimi çizerek gösterdim. Şu andaki makro; Sub Send_Row() ' Don't forget to copy the function RangetoHTML in the module. ' Working in Office 2000-2007 Dim OutApp As Object Dim OutMail As Object Dim cell As Range Dim rng As Range Dim...

...işlem yapılabilirmi.. Kullandığım kodlar.. Option Explicit Sub Mail_Range_Outlook_Body() ' Don't forget to copy the function RangetoHTML in the module. ' Working in Office 2000-2007 Dim rng As Range Dim OutApp As Object Dim OutMail As Object With Application...

....CC = "xxxxxxxxxxxxxxxxx" .BCC = "" .Subject = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" .HTMLBody = RangetoHTML(rng) .Display 'or use .Send End With On Error GoTo 0 With Application .EnableEvents = True .ScreenUpdating = True End...