IBM Notes9のメールをExcelVBAにて送信するコードについての質問です。
以下のコードを実行すると、「実行時エラー13 型が一致しません。」とのエラーが出ます。
以下、コード
Sub ※※()
Dim wknses As Object
Dim wkndb As Object
Dim wkndoc As Object
Dim wknrtitem As Object
Dim style As Object
Set wknses = CreateObject("notes.notesession")
Set wkndb = wknses.getdatabase(" "," ")
wkndb.openmail
Set wkndoc = wkndb.CreateDocument()
wkndoc.subject = "※※"
wkndoc.sendto = Array(※※)
Set wknrtitem = wkndoc.createrichtextitem("body")
Set style = wknses.CreateRichTextStyle("body")
style.NotesFont = wknrtitem.GetNotesFont("Times",True) ←ここでエラー
With wknrtitem
.AppendStyle style
.AppendText "※※"
End With
wkndoc.Save False,False
End Sub
以上は抜粋ですが、エラー文はinteger型で一致してると思い、原因と修正案が分からない状況です。
よろしくお願いします。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
>OSはWindowsです "Times"はMacなのでダメですね
参考フォントリスト
Windows 11 font list
https://learn.microsoft.com/en-us/typography/fon …
Windows 10 font list
https://learn.microsoft.com/en-us/typography/fon …
https://mimi.moe.in/nmp/fonts/allfonts
リストに在っても
エージェントが実行されている
プラットフォーム上で有効な名前でなければ ダメとあります
他のアプリケーション連携や環境に影響を受ける場合
OSの詳細、アプリケーションの詳細、などなど示さないとたどり着くのが難しくなります
最後に気になった点
リファレンスでは
NotesRichTextItem に対して CreateRichTextItem
事前バインディング に対して 実行時バインディング
ご指摘をいただき、ありがとうございます。
質問内容のフォントにTimesを記載したことで誤解が生じてしまったようです。
実際には、Notes上のメールで使用できる「HGSゴシックM」などを指定し、エラーが出ています。
以下のサイトにあるように、フォントの影響ではないように考えております。
http://domino.webserve.ne.jp/webserve/notesqa.ns …
いろいろとありがとうございます。
No.2
- 回答日時:
OSはMacでよろしかったでしょうか・・
確かに出来上がりのサンプルや情報が少ないようですね
ご存知の部分を列挙するような事になると思いますが
問題のエラー13ですが 左辺の型に右辺の型が合っていないと言う解釈ですが その中に 右辺にエラーが返っている場合も含まれます
ですので右辺 wknrtitem.GetNotesFont("Times",True) で取得している値
Integer型 指定フォントに関連付けられている 5 から 254の IDまたは 0
が取得できているかを確認してみてください
取得できていない場合
wknrtitem as NotesRichTextItem なのか
"Times"が使用可のなのか などを調べる必要が出て来ますね
情報が少ないのでエディター機能をフル活用する
(オブジェクトが正しいか、メソッド、プロパティ候補などを確認する)為にも
事前バインディングして作成されるのが良いと思います
興味本位に調べ回答しましたが、
経験が無く、環境のない私にはこの辺りが限界ですね ご健闘を祈ります
度々ご回答いただき、ありがとうございました。
OSはWindowsであり、フォントは他のものを指定してもエラーが出る状況です。
http://domino.webserve.ne.jp/webserve/notesqa.ns …
上のサイトでも同じ疑問が提示されていますが、解決に至っていないようでした。
今後いろいろと試してみたいと思います。
ご教授いただき、ありがとうございました。
No.1
- 回答日時:
Timesと言う事はMacかな
MacもIBM Notes9も全く分からないけれど 少し調べたので参考程度で
https://www.bcom.co.jp/help/help8_designer.nsf/b …
の内容から
Set wknrtitem = wkndoc.createrichtextitem("body")
Set style = wknses.CreateRichTextStyle
style.NotesFont = wknrtitem.GetNotesFont("Times",True)
Call wknrtitem.AppendStyle(style)
とかになるのではないでしょうか
また、
https://www.bcom.co.jp/help/help8_designer.nsf/f …
の情報から
>>エージェントが実行されているプラットフォーム上で有効な名前でなければなりません。
との事ですね
調べていただき、ありがとうございます。
こちらでもいろいろ検索はしているのですが、Notes用のVBAの参考例が少なく解法が見つからない状況です。
書いていただいた「style.NotesFont = wknrtitem.GetNotesFont("Times",True) 」の部分がやはり型が一致しないというエラーになってしまうようです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセル VBA メール本文に指定セルに記載されているURLをリンクとして記載する方法 8 2022/08/08 07:50
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) エクセルVBAで以下のようなコードを書いたらエラーになりました。何処が間違っているの教えて? 1 2023/02/10 18:30
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) QRコード作成マクロについて 3 2022/11/26 16:55
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) ExcelVBAの転記について 1 2022/03/23 20:13
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
お助けください!VBAのファイル...
-
ADOのExecuteメソッドで交互に...
-
ACCESSで値を代入できないとは?
-
String""から型'Double'への変...
-
数式は残し値をクリアするマク...
-
VBAに関して
-
VBA データ(特定値)のある最...
-
ACCESS VBAのSplit()関数の使用...
-
バッチファイルで、あるスクリ...
-
マクロの「SaveAs」でエラーが...
-
On ErrorでエラーNoが0
-
Excel VBA 串刺し計算について
-
VBA エクセル で FIND でのエラ...
-
unityの教科書のゲームを作って...
-
verilog で「*」を使って2の補...
-
ActiveCell.FormulaR1C1の変数
-
オブジェクト型の変数にフォー...
-
Windows7で、Windows updateの...
-
pythonのopenpyxlについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
On ErrorでエラーNoが0
-
VBAでfunctionを利用しようとし...
-
マクロで"#N/A"のエラー行を削...
-
VBA データ(特定値)のある最...
-
実行時エラー 438 の解決策をお...
-
お助けください!VBAのファイル...
-
文字列内で括弧を使うには
-
エクセルVBA 「On Error GoTo...
-
【VBA】ワークブックを開く時に...
-
マクロの「SaveAs」でエラーが...
-
ACCESSで値を代入できないとは?
-
実行時エラー'-2147467259(8000...
-
インポート時のエラー「データ...
-
【VB.NET】 パワポ操作を非表示で
-
Filter関数を用いた結果、何も...
-
UBoundに配列がありませんとエ...
-
Excel vbaについての質問
-
メールの件名のセットでエラー...
おすすめ情報