createobject( "outlook.application")は、Office365アプリversionのOutlookでエラーをスローしています
Outlookを開き、メールを送信するために必要なデータをメールアイテムに入力するMicrosoftAccessApplicationがあります.
Outlookデスクトップversionを使用すると、何年も問題なく機能しました.
Windows 11
Proで実行しており、すべてのソフトウェアが現在のversionに更新されたOffice365ファミリーを使用しています.
助けていただければ幸いです.
Outlookアプリの新しいOffice365versionでは、次の場所でコンパイルエラーが発生します.SetoApp= CreateObject( "Outlook.application")は、「オブジェクトライブラリ機能がサポートされていません」と表示します.
全体の機能は以下のとおりです.
関数SendThroughOutlook(oSubject、oTo、oFrom、oCC、oBCC、oBody、oResponse)
Outlook.ApplicationとしてのDimoApp
Dim oMail As MailItem
Outlook.AccountとしてのDimoAccount
オブジェクトとしてのDimoOutlook
Set oApp= CreateObject( "Outlook.application")"これがエラーの原因です
oMail= oApp.CreateItem(olMailItem)
を設定しますエラー時に次を再開
oOutlook= GetObject(、 "Outlook.Application")
を設定しますエラー時GoTo0
oOutlookが何もない場合
rv= Shell( "outlook.exe")
終了する場合
oOutlook= Nothing
を設定しますwasSent= False
oMailを使用
oApp.Session.Accountsの各oAccountについて
LCase(oAccount.DisplayName)= LCase(oFrom)Then
の場合.Subject= Nz(oSubject)
.SendUsingAccount= oAccount
.To= Nz(oTo)
.cC= Nz(oCC)
.BCC= Nz(oBCC)
.Body= Nz(oBody)
.BodyFormat= olFormatRichText"olFormatHTML
oResponse= 1の場合.VotingOptions= "Yes; 番号; "
.Display(True)
エラー時に次を再開
emSent= .Sent
wasSent= IIf(Err= 0、False、True)
終了
終了する場合
次へ
で終わる
oAccount= Nothing
を設定しますoMail= Nothing
に設定しますoApp= Nothing
に設定しますrv=なしを設定
SendThroughOutlook= wasSent
終了機能
次のライブラリを開いています:
返信リスト(回答:3)
なぜ持っているのかわからない
oApp= CreateObject( "Outlook.application")
を設定しますおよび
エラー時に次を再開
oOutlook= GetObject(、 "Outlook.Application")
を設定しますエラー時GoTo0
以下は遅延バインディングを使用しているため、Outlook16.0オブジェクトライブラリへの参照は必要ありません
エラー時に次を再開
oOutlook= GetObject(、 "Outlook.Application")
を設定しますエラーの場合<>0その後
oOutlook= CreateObject( "Outlook.Application")
を設定しますbStarted= True
終了する場合
応答2# ->にスキップ1 #JStockmこれはかなり古いコードです.おそらく7年か8年で、私はそれほど長い間それをいじっていません.
あなたがそれについて言及し、それに応じて改訂したので、冗長性がわかりました.
それに応じてコードを変更しましたが、動作するようになりました.
返信ありがとうございます!
ありがとう、ダグ・ロビンス.
そのために残念、
以下のリンクの手順に従って、問題を解決するためにオンライン修復を実行してみてください.
https://support.Microsoft.com/Office/7821d4b6-7...
これがお役に立てば幸いです.
イヴァニア