Mail gönderme ve kayıt işlemi hk.

[kemal turan]

merhaba,
Aşağıda kod ile mail gönderiyorum.

Siparisler sahifesine kayıt işlemini yapan kalın harfli olan kodumuz herhangi bir modülde çalışıyor.
Option explicit ile başlayan kod sonunda eklediğimizde çalışmayıp hata veriyor.
bu iki kod acaba beraber çalışmaz mı ?
Yardımcı olabilirmisiniz.

Option Explicit

Sub Secilen_Alani_Mesaj_Govdesine_Gonder()
'Office 2000-2010 sürümlerinde çalışır
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 = Range("c14:e37").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")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = [b1] ' MAİL ADRESİ
.CC = [b2]
.BCC = ""
.Subject = "Sipariş Hk."
.HTMLBody = RangetoHTML(rng)
.Display
.Send
End With
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
MsgBox "Sipariş gönderildi"

satır = Sheets("siparisler").Cells(Rows.Count, 1).End(3).Row + 1
Range("c3:g12").Select
Selection.Copy
Sheets("siparisler").Cells(satır, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Range("a1").Select
End Sub