Using mail As MailMessage = New MailMessage
            mail.Subject = (mailkonu.Text) 'E-mail Konusu
            mail.To.Add(mailalıcı.Text) 'E-Mail Alıcısı
            mail.From = New MailAddress(gondmail.Text) 'E-Mail de görünecek isim. Buraya sizin e-mail adresinizi yazdırıyoruz. İsim yazdığımızda kabul etmemekte ve hata vermektedir.
            mail.Body = (mailmesaj.Text) 'E-Mail Mesajı
            mail.Attachments.Add(New Attachment(eklidosya.Text)) 'Burası E-Maile Ek dosya olacaksa eğer dosya göndermek istemiyorsak bu satırı silmemiz gerekiyor. Yoksa hata verecektir.
            mail.IsBodyHtml = (htmlbilgi.Text) 'E-Mail Metin Biçimi Html İçin True / Düz Metin İçin  False
            'SMTP Sunucu Ayarları
            Using smtp As New SmtpClient(smtpsunucu.Text)
                smtp.EnableSsl = (ssl.Text) 'SSL Kullanım Bilgisi/ Kullanılacaksa True / Değilse False
                smtp.Credentials = New System.Net.NetworkCredential(gondmail.Text, gondmailsifre.Text) 'E-Mail Gönderilirken Kullanılacak Mail Adresi / Sabit değer için ("deneme@deneme.com, 123456") şeklinde yazınız.
                smtp.Port = (smtpport.Text) 'SMTP Portu Gmail İçin 587
                smtp.Send(mail) 'Mail Gönder
            End Using
        End Using
        If MsgBox("Mail Başarıyla Gönderilmiştir.", vbInformation + vbOKOnly, "Bilgi") = vbOK Then 'Mail Gönderme Başarılı İse Bilgi Mesajı Veriyor.
            Call mailgonderildi() 'Mail gönderildikten sonra formdaki Mail İçeriği alanını temizletiyoruz.
        End If

mailalıcı.Text = ""
        mailkonu.Text = ""
        mailmesaj.Text = ""
        eklidosya.Text = ""
        CheckBox1.Checked = False