Vba электронная почта

Отсылка электронной почты Отсылка электронной почты с данными рабочего листа может производится при помощи средств Microsoft Outlook. Листинг 16. Отсылка электронной почты

Private Sub cmdEMail_Click() 
Dim objOL As New Outlook.Application 
Dim objMail As MailItem 
Set objOL = New Outlook.Application 
Set objMail = objOL.CreateItem(olMailItem) 
With objMail .To = Range("B1")
      .Value .Body = Range("B2")
      .Value .Subject = Range("B3")
      .Value .CC = Range("B4")
      .Value .Display 
End With 
Set objMail = Nothing 
Set objOL = Nothing 
End Sub