ここから本文です

VBA Outlookのメール作成について 仕事でVBAを使い、社内で利用する申請書を作...

アバター

ID非公開さん

2019/3/2213:17:20

VBA Outlookのメール作成について

仕事でVBAを使い、社内で利用する申請書を作ることになりました。

コマンドボタンを押すとoutlookのメールが起動するようにしたいのですが、なかなかうまくいかず苦戦しております。(送信までは行わない)

またメール本文の中に、リンク先(URL)も貼り付けるようにしたいと考えています。

まだ途中ですが、作成中のコードを記載します。

是非教えていただけると幸いです。

【コード】
Sub Commndbutton1_Click()

Dim olApp As Outlook.Application
Dim MailItem As Outlook.MailItem

'Outlookを起動する
Set olApp = New Outlook.Application

'メールを作成する
Set MailItem = olApp.CreateItem(olMailItem)

'HTML形式のテキストに変更
MailItem.BodyFormat = 2

With MailItem
'件名
.Subject = "【○○申請書】確認・承認のお願い"

'本文
.Body = "xxxさん" & vbCrLf & _
"お疲れ様です。" & vbCrLf & _
"○○申請書の確認と承認をお願いします。" & vbCrLf & vbCrLf & _
"氏名 :氏名(漢字)" & vbCrLf & _
"申請日 :申請日" & vbCrLf & _
"完了希望日 :完了希望日" & vbCrLf & _
"※完了希望日の○週間前までに○○へ申請書の提出が必要です" & vbCrLf & vbCrLf
"ここにリンク先を貼り付けたい”
"この先の書き方が分からない..."

よろしくお願いします。

補足下記忘れていたので、補足で追記します。

・宛先、CC、BCCは空欄のままでメールを起動したいです。

閲覧数:
125
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

wak********さん

2019/3/2217:40:05

bodyの中で
普通に & ”https://xxx..yy.zz” &
でできると思いますが

個人的には、添付ファイルのパスや
リンクは、本文の一部もセルを参照したほうが
VBAの汎用性が上がると思います。


最後に
    set olApp = Nothing
    set MailItem = Nothing

を忘れずに

  • wak********さん

    2019/3/2220:44:28

    参考までに、私が業務で使っているコードを貼っておきます。
    今の業務の都合上100人未満10人以上にメールを配信する
    必要があるので、マクロ化してます。

    元PGなので、敢えてループは汚い処理にしてます。

    文字数オーバーなので、続きます。

  • その他の返信を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる