aktif kitabı mail olarak gönderme

[elvis]

arkadaşlar elimde DENEMEDOSYA.xls isimli bi çalışma dosyam var ve ben bunun Sayfa1 e bir buton ekledim. butona basınca bu çalışma kitabının mail olarak gönderilmesini istiyorum.. kod aşağıdadır. nerede yanlış yaptığımı bilmiyorum. her yolu denedim ama bi türlü yapamadım.
yardımcı olacak arkadaşlara şimdiden teşekkürler.

Dim wb1 As Workbook
Dim wb2 As Workbook
Dim wbname As String
Application.ScreenUpdating = False
Set wb1 = ActiveWorkbook
wbname = "E:/mkorkmaz5/Belgelerim" & wb1.Name & " " & _
Format(Now, "dd-mm-yy h-mm-ss") & ".xls"
wb1.SaveCopyAs wbname
Set wb2 = Workbooks.Open(wbname)
With wb2
.SendMail "s6500m@hotmail.com", _
"DENEMEDOSYA"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True

 

[Recep İpek]

Aşağıdaki kodları kendinize göre uyarlayabilirsiniz.

[color=blue]Sub OutlookMesajGönder()[/color]
On Error Resume Next
Dim App As Outlook.Application
Dim Posta As Outlook.MailItem
Dim FSO As Object
Dim Tarih As Date
Dim MyFolder, MyFile As String

Application.DisplayAlerts = False
ActiveWorkbook.Save
MyFolder = "C:\Genel"
Tarih = Date
[color=green]'MyFile = ActiveWorkbook.Name & " " & Format(Date, "yyyy mm dd") + ".xls"[/color]
MyFile = "RAPOR.xls"

Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FolderExists(MyFolder) Then
FSO.CreateFolder (MyFolder)
End If

ActiveWorkbook.SaveCopyAs Filename:=MyFolder & Application.PathSeparator & MyFile

Set FSO = Nothing
Set App = CreateObject("Outlook.Application")
Set Posta = App.CreateItem(olMailItem)
    With Posta
      .To = "xxx.yyy@zzz.com;aaa.bbb@ccc.com"
      '.CC = ""
      '.BCC =
      .Subject = Tarih & " 'li Rapor"
      .Body = "Merhaba" & Chr(13) & Chr(13) & Tarih & " tarihli satış raporu ektedir." & Chr(13) & Chr(13) & "Kolay Gelsin."
      .Attachments.Add "C:\Genel\" & MyFile
      .Display
      [color=green]'.Send[/color]
    End With
Application.DisplayAlerts = True
[color=green]'Referanslardan Microsoft Outlook X.X Object Library seçili olmalıdır.[/color]
[color=blue]End Sub[/color]

 

[elvis]

ripek arkadaşım!
dediğiniz kodu yazdım ve bir çalışma kitabı oluşturdum ancak aşağıdaki gibi bir hata mesajı oluştu. neden olabilir acaba?

 

[Recep İpek]

Kodlarında en altında belirtildiği gibi Referanslardan Microsoft Outlook X.X Object Library seçili olmalıdır.