Outlook Ekspres Maİl Hakkinda/makro

[MAJUHOO]

İYİ GÜNLER. BİR KONUDA YARDIMLARINIZA İHTİYACIM VAR. BEN EXCELL BUNU YAPTIM. BU YAPTIĞIM MİCROSOFT OUTLOOK İÇİNDİ. AŞAĞIDAKİ MAKRONUN AYNISI OUTLOOK EKSPRES İÇİN NASIL YAPABİLİRİM? YARDIMCI OLURSANIR ÇOK SEVİNİRİM.



Sub SİP1()
Dim olApp As Outlook.Application
Dim olMail As MailItem

Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)

ThisWorkbook.Sheets("SİP1").Copy

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "BİRİKTİR KAZAN.xls"

With olMail
.To = "alkenet@alkenet.com"
.Subject = "BİRİKTİR KAZAN"
'.BCC = "alkenet@alkenet.com"
.Attachments.Add ActiveWorkbook.FullName
.Display
'.Send
End With

ActiveWorkbook.Close False
Kill ThisWorkbook.Path & "\" & "BİRİKTİR KAZAN.xls"
Set olMail = Nothing
Set olApp = Nothing
'*******************************************************************
'Referanslardan Microsoft Outlook X.X Object Library seçili olmalı.*
'*******************************************************************
End Sub