makro ile mail

[y_tekeli]

Aşağıda ki kodlarla mail attiğim çalışma sayfasında sayfa koruma işlemi yaptığımda hata alıyorum kodlarda 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
.EnableEvents = False
.ScreenUpdating = False
End With

Set rng = Nothing
On Error Resume Next
Set rng = Sheets("GÜNLÜK RAPOR").Range("A1:Q20").SpecialCells(xlCellTypeVisible)
On Error GoTo 0

If rng Is Nothing Then
MsgBox "The selection is not a range or the sheet is protected" & _
vbNewLine & "please correct and try again.", vbOKOnly
Exit Sub
End If

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "a.b@abc.com;c.d@abc.com"
.CC = "x.y@abc.com"
.BCC = ""
.Subject = Range("B2") & " GÜNLÜK RAPOR"
.HTMLBody = RangetoHTML(rng)
.Display 'or use .Send
End With
On Error GoTo 0

With Application
.EnableEvents = True
.ScreenUpdating = True
End With

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[Emir Hüseyin Çoban]

. . .

Şu şekilde deneyiniz.
Kodlarınızın başına sayfa korumasını kaldır, mail işlemi bittikten sonra kodların sonuna tekrar korumaya al kodlarını ilave ediniz.

Sub Mail_Range_Outlook_Body()
[B]ActiveSheet.Unprotect [COLOR="Red"]Şifre[/COLOR][/B]
'Kodlarınız
...
..
.
[B]ActiveSheet.Protect [COLOR="Red"]Şifre[/COLOR][/B]
end sub

. . .