Private Function MailGonder(xmailto As String, xmailfrom As String, xmailkonu As String, xmailatach As String, xbody As String)
Dim objCDOMail As Object
 
   Set objCDOMail = CreateObject("CDO.Message")
 
   objCDOMail.To = xmailto
   objCDOMail.From = xmailfrom
  'objCDOMail.CC = "xxxx@hotmail.com" ' Eğer isterseniz CC olarak yani bilgi gönderilecek e-mail adresi
   objCDOMail.Subject = xmailkonu
   objCDOMail.AddAttachment xmailatach
   objCDOMail.TextBody = xbody
 
  
   objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
   objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
   objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
   objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
   objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "XXX@gmail.com"
   objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXXX"
   objCDOMail.Configuration.Fields.Item("urn:schemas:httpmail:importance") = 2
   objCDOMail.Configuration.Fields.Item("urn:schemas:mailheader:X-Priority") = 1
   objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
   
   objCDOMail.BodyPart.Charset = "utf-8"
   objCDOMail.TextBodyPart.Charset = "utf-8"
   
   objCDOMail.Configuration.Fields.Update
   objCDOMail.Send
   
   Set objCDOMail = Nothing
 
End Function

objCDOMail.AddAttachment yol & "Dosyanın_dışarı_aktarılacak_adı" & ".xls"