web-dev-qa-db-ja.com

Outlook 2010でマクロを作成して、件名に日付を追加する方法

私はコードを書くVBA形式に不慣れで、命令されたときに電子メールの件名行に現在の日付を自動入力する方法を研究しています。次のタスクを完了する方法を知る必要があります。

件名は「stuffstuffstuffTODAYS DATE」と読み替えてください。本文は「Person、（return; tab）Stuff stuff stuff今日の日付 "

また、可能であれば、「TODAYS DATE。xlsx」という名前のファイルを特定の場所から自動添付したいと思います。

今日の日付はDDMMMYYの形式にする必要があります。

現在、非常に基本的なマクロを使用してメールを作成し、必要な場所にテキストを追加しています。

Sub STUFF()
Dim msg As Outlook.MailItem
Set msg = Application.CreateItem(olMailItem)
msg.To = "EMAILS"
msg.CC = "EMAILS"
msg.Subject = "STUFF STUFF STUFF *DATE*"
msg.Body = "PERSON, STUFF STUFF STUFF *DATE*"
msg.Display
Set msg = Nothing
End Sub

助けてくれてありがとう。

編集-明確化のために私は次のことを試しました： Outlookメールの件名の今日の日付（2010 /クイックステップ）https://stackoverflow.com/questions/9177199/getting-the-current-date-in-visual-basic-2008https://stackoverflow.com/questions/4313730/current-date -in-Outlook-subject-line そして、「マクロOutlook2010の現在の日付」というキーワードのバリエーションに対する他のほとんどのGoogle検索結果

編集2-理由私の最終目標は、マクロコマンドを使用することです。このコマンドを選択すると、宛先、CC、件名、本文、添付ファイルが完成したので、毎日変化する数行の情報を編集して送信することができます。これは必要な場合にのみ使用され、新しいメールを送信する必要があるたびに使用されるわけではありません。

microsoft-outlookmicrosoft-outlook-2010vbamacros
1
J.Seal

投稿のタイトルを完成させるには、日付を操作してNowを探します。

_Sub STUFF()
    Dim msg As Outlook.MailItem
    Set msg = Application.CreateItem(olMailItem)
    msg.To = "[email protected]"
    msg.CC = "[email protected]"
    msg.Subject = "STUFF STUFF STUFF" & Now
    msg.Body = "PERSON, STUFF STUFF STUFF" & Now
    msg.Display
    msg.Attachments.Add ("e:\temp\" & Format(Now, "dd.mm.2014") & ".xlsx")
    Set msg = Nothing
End Sub
_

Nowは、この場合はSubjectとBodyの文字列に追加された日付を返すだけです。日付のフォーマットを検討している場合は、_Attachment.Add_の例にあるFormat(Now, "dd.mm.2014")のようなものを使用します。その他の日付の書式設定 例

かなりシンプルなアタッチメントも。私はあなたがすべきパスのデータ検証をしていませんが、私のテストでは次のようになりました。これは、ファイルの命名規則にも完全に依存します。

enter image description here

次に、必要なのは、マクロにクイックアクセスツールバーボタンを割り当てるなどです。

2
Matt