VBA/Excel/Access/Word/Outlook/Email Send

Send out email

   <source lang="vb">

Sub Send_Msg()

   Dim objOL As New Outlook.Application
   Dim objMail As MailItem
  
   Set objOL = New Outlook.Application
   Set objMail = objOL.CreateItem(olMailItem)
  
   With objMail
       .To = "name@domain.ru"
       .Subject = "Automated Mail Response"
       .Body = "This is an automated message from Excel. " & _
           Format(Range("A1").Value, "$ #,###.#0") & "."
       .Display
   End With
  
   Set objMail = Nothing
   Set objOL = Nothing

End Sub

</source>