إرسال Email بواسطة vb

السلام عليكم ورحمة الله

هذه طريقة لإرسال Email عن طريق VB باستخدام MAPI

الكود

In a form put
Mapi session object = MapiSess 
MapiMsg object = MapiMsg 
CheckBox = Check1 
CommandButton = cmdSend 


Private Sub cmdSend_Click() 
    With MapiSess 
        .UserName = "Amit"  'Your Profile Name 
        .DownLoadMail = False 
        .NewSession = True 
        .SignOn 
    End With 

        With MapiMsg 
            .SessionID = MapiSess.SessionID 
            .Compose 
            .AddressResolveUI = True 
            .RecipDisplayName = "amitmore@vsnl.com" 'Receipent's Email Address 
            .ResolveName 
            .MsgSubject = "DownLoads" 'Subject of Mail 
            .MsgNoteText = "Attaching File" 'Message to Send 
            If MsgBox("Do u want To Send Mail... ?? ", vbYesNo + vbQuestion, "Confirm Send") = vbYes Then 
                If Check1.Value = 1 Then 
                    .Send (True) 
                Else 
                    .Send 
                End If 
            End If 
        End With 
    MapiSess.Action = mapSignOff 
End Sub

هل توجد طريقة أخرى بدون إستخدام الـWinSock؟؟؟