[[20230428164244]]　『修正お願いしたいです。』（イコカ）　ページの最後に飛ぶ

『修正お願いしたいです。』（イコカ）

引用元
https://access-skill.com/vba-create-outlook-mail/

こちらのサイトから添付ファイル付きメールをVBAで作成していたのですが、
コンパイルエラー：Sub または Function が定義されていません。
となってしまいます。
ツールから参照設定でoutlookは紐づけてあります。

引用元では稼働していたので原因がわかりません。
お力添え、宜しくお願い致します。

下記よりコードです。

Sub CreateMail()

  OnErrorGotoErrHandler

    DimobjOutlookAsNewOutlook.Application
    DimobjMailitemAsOutlook.MailItem
    SetobjMailitem=objOutlook.CreateItem(olMailItem)

    WithobjMailitem
        .To="xxxxx@gmail.com"    
        .CC="yyyyyyyy@gmail.com"    
        .Subject="ここに件名を指定します"
        .Body="ここに本文を指定します。"  
        .Attachments.Add"C:\Sample\test.zip"
        .Display    
    EndWith
ErrHandler:
MsgboxErr.Message
End Sub

＜使用 Excel：Excel2019、使用 OS：Windows11 ＞

 スペースが全然入ってないですよ？

 例：  OnErrorGotoErrHandler　→   On Error Goto ErrHandler
     　DimobjOutlookAsNewOutlook.Application　→　    Dim objOutlook As NewOutlook.Application
（半平太） 2023/04/28(金) 17:08:30

ラベルのコロンが無い
必要な空白が無い
（tkit） 2023/04/28(金) 17:11:28

   WithobjMailitem
        .To="xxxxx@gmail.com"    
        .CC="yyyyyyyy@gmail.com"    
        .Subject="ここに件名を指定します"
        .Body="ここに本文を指定します。"  
        .Attachments.Add"C:\Sample\test.zip"
        .Display    
   EndWith
のWithとEndの後にもスペースが・・・
（ngk　　） 2023/04/28(金) 18:17:17

（半平太）様
（tkit）様
（ngk )様
大変助かりましたありがとうございますm(_ _)m

やはり色々おかしな点があったのですね。
今後の糧に致します。
（イコカ） 2023/04/28(金) 18:31:20

コメント返信：

[ 一覧(最新更新順) ]

[[20230428164244]] 『修正お願いしたいです。』（イコカ） ページの最後に飛ぶ

[[20230428164244]]　『修正お願いしたいです。』（イコカ）　ページの最後に飛ぶ