Userform üzerinden-Userformu mail olarak gönderme

[vivident]

Arkadaşlar forumdan aradım ve kendime en yakın aşağıdaki kodları buldum. İsteğim sadece userform1 üzerindeki mail gönder butonuna tıklandığında userform1'i outlook'a (resim,eklenti.....vs) olarak eklemesi.

Kodlar aşağıda, dosya ektedir

Private Sub CommandButton2_Click()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    With OutMail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = ""
        .Body = ""
        .Attachments.Add ActiveWorkbook.FullName
        .Display
        '.Send
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

 

[vivident]

Attachments.Add kısmına userform eklentisini nasıl yapabiliriz.
userform.jpg örneğin