ここでは、ExcelのVBAマクロを使用してメールを送信する方法について説明します。 この投稿では、Microsoft Excel のマクロと VBA オプションを使用して、Excel を使用してどのように電子メールを送信できるかについて、ステップ バイ ステップ ガイドは行いません。
これは、共有したいスプレッドシート テンプレートが非常に特定の目的のために作成され、一般のブログ読者に役立つとは思えないからです。 これはおそらく、あなたのワークフローや同僚のプロセスをより効率的にするためのインスピレーションになるでしょう。
私は、以下の YouTube ビデオからテンプレートからの基本的な計算式を学びました。
上の動画で詳しく説明したテンプレートを使用して、自動化する必要があったタスクを達成する方法を説明します。
What I needed to do me
What I needed to do was the following.
For a database, I could download separate sales report for each country.For a database, I wanted to do a task. また、データ (ウェブサイトの訪問者、リード、および販売を含む) を Excel の 1 つのテーブルにダウンロードすることもできます。
以下は、データを含むテーブルです (現在そこにあるデータはすべて =RANDBETWEEN() という数式で生成した乱数)。
テーブルをコピーしてExcelシートに貼り付け、23の異なる営業所に対して固有のメールを自動作成する方法が必要でした。
それぞれの固有の電子メールには、営業所の業績を要約し、固有の電子メール添付が必要です。
結局、以下の電子メール テンプレートができました。
次にエクセルでVBAマクロを作りました。 マクロのテキストは以下の通りです。
Sub Send_email_fromexcel()Dim edress As StringDim subj As StringDim message As StringDim filename As StringDim outlookapp As ObjectDim outlookmailitem As ObjectDim myAttachments As ObjectDim path As StringDim lastcol As IntegerDim attachment As StringDim x As Integer x = 2Do While Sheet7.Cells(2, x) <> "" Set outlookapp = CreateObject("Outlook.Application") Set outlookmailitem = outlookapp.createitem(0) Set myAttachments = outlookmailitem.Attachments path = Sheet7.Cells(5, x) edress = Sheet7.Cells(2, x) cc = Sheet7.Cells(3, x) subj = Sheet7.Cells(4, x) filename = Sheet7.Cells(6, x) attachment = path + filename outlookmailitem.to = edress outlookmailitem.cc = cc outlookmailitem.bcc = "" outlookmailitem.Subject = subj outlookmailitem.body = Sheet7.Cells(7, x) myAttachments.Add (attachment) outlookmailitem.display outlookmailitem.send lastcol = lastcol + 1 edress = "" x = x + 1LoopSet outlookapp = NothingSet outlookmailitem = NothingEnd Sub
Excelファイルのテンプレートを提供しましたので、このファイルを使って実験や練習をしたい方は、ぜひご覧ください。
残念ながら、このWordPressサイトに.xlsmファイルをアップロードできないため、ファイルからマクロを削除しなければならなくなりました。
Download Excel file template
Download the template file by clicking on the link below:
Hope this post was useful for those interested to automating some tasks involving Excel and Outlook!
My Other Blog Posts
If you enjoyed this post might enjoy those other blog posts I’m written.
Michael
トロント在住の南アフリカ人のデジタルアナリストです。 カナダ。 デジタルマーケティング、ウェブ解析、データビジュアライゼーションについてブログを書いています。
Get in touch with me！
LinkedIn
Twitter
Email
