Sending e-mails from Gmail and Outlook using Excel VBA

Sub SendGmail()

   'creating a CDO object
   Dim Mail As CDO.Message
   Set Mail = New CDO.Message

   'Enable SSL Authentication
   Mail.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

   'Make SMTP authentication Enabled=true (1)
   Mail.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

   'Set the SMTP server and port Details
   'Get these details from the Settings Page of your Gmail Account
   Mail.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
   "smtp.gmail.com"
   Mail.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
   Mail.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

   'Set your credentials of your Gmail Account
   Mail.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/configuration/sendusername") = _
   "username@gmail.com"
   Mail.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = _
   "*********"

   'Update the configuration fields
   Mail.Configuration.Fields.Update

   'Set All Email Properties
   With Mail
      .Subject = "Write subject here"
      .From = "username@gmail.com"
      .To = "user1@gmail.com;user4@gmail.com"
      .CC = "user2@gmail.com"
      .BCC = "user3@gmail.com"
      .textbody = "write your mail here"
      .AddAttachment ("Folder Address") 'To attach Documents in mail
   End With
   'to send the mail
   Mail.Send

End Sub

Sub SendOutlook()

   'Declaring Variables
   Dim OutlookApp  As Outlook.Application
   Dim OutlookEmail  As Outlook.MailItem

   'Assigning variables to create outlook application and mailitem
   Set OutlookApp = New Outlook.Application
   Set OutlookEmail = New Outlook.MailItem

   With OutlookEmail
      'Format of the mail
      .BodyFormat = Olformatplain
      'Body of the mail
      .body = "Dear Someone" & vbNewLine & "How are you?"
      'To whom you want to send mail
      .To = "Someone@somewhere.com"
      'Subject of mail
      .Subject = "Write Subject Here"
      'TO add an attachment
      .Attachments.Add ("Folder path")
      'sends the mail
      .Send
End With

End Sub