Отправка почты со стандартного клиента через VB

Формулировка задачи:

Как сделать, чтобы при нажатии на кнопку открывалось окно Новое сообщение стандартного e-mail-клиента со всеми заполнеными полями?

Решение задачи: «Отправка почты со стандартного клиента через VB»

textual
                            Листинг программы 
                        

                            Function SendMail(recipName, subjText, bodyText, ccName, bccName, Optional fileToSend, Optional importanceLevel, Optional sensLevel, Optional readReceipt) As Boolean
 
  Dim myOlApp As Object, myItem As Object, myAttachments As Object, myRecipient As Object
 
  Set myOlApp = CreateObject('Outlook.Application')
  Set myItem = myOlApp.CreateItem(olMailItem)
 
  Set myRecipient = myItem.Recipients.Add(recipName)
  myItem.Subject = subjText
  myItem.body = bodyText
 
  ' Остальное - при желании (проверять сначала через IsMissing):
 
  myItem.CC = ccName
  myItem.BCC = bccName
  Set myAttachments = myItem.Attachments
  myAttachments.Add fileToSend, olByValue, 1, fileToSend
  myItem.importance = importanceLevel
  myItem.ReadReceiptRequested = readReceipt
  myItem.Sensitivity = sensLevel
 
  myItem.Display ' или myItem.Send
 
  ' Для краткости исключены обработчики ошибок, поэтому всегда будет:
  SendMail = True
 
End Function
                        