...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...
...'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...
...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)...
...şimdiden.
Sub Mail_AT()
'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
With Application...
...gerekiyor, aşağıya hangi kodu eklemeliyim
On Error Resume Next
With OutMail
.To = "alici@mail.adresi"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.HTMLBody = RangetoHTML(rng)
.Display 'or use .Send
End With
On Error...
...bu hata mevcut zaten bu hatayı kaldıra bilirmiyiz ben denedim olmadı.
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...
...renklendirdiğim yere HtmltoRange eklediğimde ise Sub or Function not defined hatası vermekte.
" You need to use this module with the RangetoHTML subroutine." ne demek? Nasıl ekleniyor? Bilemedim. Yardımcı olabilir misiniz.
Sub Mail()
' You need to use this module with the RangetoHTML...
Option Explicit
Sub Mail_Sheet_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
.EnableEvents = False
.ScreenUpdating = False...
...ilgili bir sorun.yardımcı olursanız sevinirim. teşekkürler....
Sub Mail_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
With Application...
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.