VBA電子メール、Outlookエラー

Question

VBAエクセルプロジェクト（クラスプロジェクト）から電子メールを送信しようとしましたが、面白いエラーが発生しました。オートメーションエラー：ClassFactory cannot supply requested class.私のコードは以下の通りです。このエラーがなぜ表示されるのか不思議でした。また、VBAから電子メールを送信するより良い方法があるので、それをどのユーザーにでも送信できます。また、デバイスからのOutlookデータを使わずに正しいアドレスに電子メールを送信しますか？あらかじめありがとうございます。私はこのフォーラムが特定の質問の定式化を強調していることを知っています。

Private Sub cmdEmail_Click() 

    'Assign Variables to Appropriate Data Type 
    Dim strEmailtoUser As String 
    Dim OutApptoUser As Object 
    Dim OutMailtoUser As MailItem 
    Dim DestwbtoUser As Workbook 

    'Copy Worksheet 
    Workbooks("alis9035-Project.Updated.xlsm").Sheets("Final List!").Copy 

    'Ask user for their email 
    strEmailtoUser = InputBox("What email would you like this sent to?", "Email List", "bill@gmail.com") 

    'Set object variables to outlook application 
    Set OutApptoUser = CreateObject("Outlook.Application") 
    Set OutApptoUser = New Outlook.Application 
    Set OutMailtoUser = OutApptoUser.CreateItem(0) 

    'Send email to user 
    With DestwbtoUser 
     With OutMailtoUser 
      .To = strEmailtoUser 
      .Subject = "User Rating" 
      .Body = "The user rated the application" 
     End With 
     .Close savechanges:=False 
    End With 

End Sub 

Answer 1

Outlookを使用せずにVBAから電子メールを送信する場合は、BLATを使用できます。 blatが必要とするコマンドラインを作り、シェルを使ってそれを蹴飛ばす。

詳細情報ここに...

http://www.blat.net/