مشكلة في ارسال الايميل

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

انا استخدم الكود التالي في ارسال رسائل بريد الكتروني

 Dim mail As MailMessage = New MailMessage()


        mail.To.Add(DropDownList1.Text)
        mail.From = New MailAddress("ss@aa.com")
        mail.Subject = TextBox2.Text
        mail.Body = TextBox3.Text
        mail.Bcc.Add("mm@aa.com")
        'mail.Attachments = New File
        mail.IsBodyHtml = False
        '  mail.se()
        Dim smtpserver As SmtpClient = New SmtpClient()
        smtpserver.Host = "mail.aa.com"
        smtpserver.Port = 25

        ' smtpserver.Send = sender.ToString
        ' smtpserver.DeliveryMethod = SmtpDeliveryMethod.PickupDirectoryFromIis
        'smtpserver.EnableSsl = True
        ' MailFolder = tempNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderOutbox)
        smtpserver.UseDefaultCredentials = False
        'smtpserver.Host = "1.2.3.1"
        smtpserver.Credentials = New System.Net.NetworkCredential("dd@HOTMAIL.com", "")
        smtpserver.EnableSsl = False
        smtpserver.Send(mail)

الكود شغال تمام بس

اريد اضافة الايميل المرسل في   الرسائل المرسلة  (sent item)

كيف ارجووووووووووووووووووووووكم المساعدة