VBA初心者です。
エクセルのVBAを用いて宛先毎に指定の添付を送りたいと思います。
さらに送信されたかわかるようにエクセルのB列に送信状況がわかるようにしたいのですがどんな文法をいれてよいのかわかりません。教えていただけると大変助かります。
下記のどごにどのようにすればよいでしょうか。
Sub outlook()
Dim oApp
Dim Wm_ITEM
Dim Wm_TO
Set oApp = GetObject(, "Outlook.Application")
Dim folder As String
Dim FileName As String
Dim row As Long
Dim shname As String
row = 2
shname = "提供票送付事業所一覧"
Do Until row = 150
Set Wm_ITEM = oApp.CreateItem(0)
Wm_TO = ""
WS_OutLk = ""
If ThisWorkbook.Sheets(shname).Cells(row, 1) <> "" Then
Wm_ITEM.To = ThisWorkbook.Sheets(shname).Cells(row, 5)
Wm_ITEM.CC = ThisWorkbook.Sheets(shname).Cells(row, 6)
Wm_ITEM.Subject = ThisWorkbook.Sheets(shname).Cells(row, 7)
Wm_ITEM.Body = ThisWorkbook.Sheets(shname).Cells(row, 3) & _
ThisWorkbook.Sheets(shname).Cells(row, 4)
Wm_ITEM.Body = Wm_ITEM.Body _
& vbCrLf _
& ThisWorkbook.Sheets(shname).Cells(row, 8)
folder = ThisWorkbook.Sheets(shname).Cells(row, 9).Value
FileName = ThisWorkbook.Sheets(shname).Cells(row, 10).Value
Wm_ITEM.Attachments.Add folder & "\" & FileName
Wm_ITEM.display
Wm_ITEM.Save
Wm_ITEM.Send
End If
row = row + 1
Loop
MsgBox "完了"
End Sub
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんにちは
>エクセルのB列に送信状況がわかるようにしたい
内容的に現状のままで良いのなら、
Worksheets(shname).Cells(row, 2).Value = "送ったよ!"
の一行を、End If の前に追加するとか。
No.1
- 回答日時:
こんにちは
>宛先毎に指定の添付を送りたいと思います。
掲示のコードで出来ているのでは無いでしょうか?
>B列に送信状況がわかるようにしたいのですが
A列の対象セルが空白でない場合にその行の情報に基づき実行されるコードですね
なのに、B列に何を入れるのでしょうか?
対象行を実行したよ みたいな事でしょうか?
エラートラップなどを追加して何だかのエラーなどを返すとかでしょうか?
html特殊文字で読みにくいのですが、ご質問者様は提示のコードを理解していますか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) vba 重複データ合算 5 2023/07/05 18:55
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 6 2022/06/08 12:55
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
php 投票システム
-
checkboxクリック時、SQLを実行...
-
sortable ギブアップです…助け...
-
ラジオボタンをループすること...
-
PHP と MySQL でテーブルの行数...
-
[PHP+MySQL] データをランダム...
-
PHPについてなのですが未定義の...
-
mysql_fetch_array の速度について
-
PHPで[]の使い方について
-
DBで検索結果に該当するデータ...
-
phpのエラーについてです
-
Q&Aサイトを作成していてURLの...
-
<VB.NET>INSERT文でDBにデータ...
-
実行時エラー3131 FROM 句の構...
-
VBAをつかってクエリの情報を抽...
-
会員サイトでログイン後の会員...
-
日またぎの計算
-
CSVをダウンロードさせた際、CS...
-
テキストボックスに入れた内容...
-
配列をループさせてUPDATE
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
DBで検索結果に該当するデータ...
-
PHPで[]の使い方について
-
アラートでyes noを作りたいです。
-
phpでmysqlを使ってデータベー...
-
PHP、SQLite3のデーターでログ...
-
dbに登録したデータをphpのプル...
-
checkboxクリック時、SQLを実行...
-
PHPでMY SQLの連想配列をリンク...
-
文字化けが解決できません。お...
-
PHPでMySQLデータを呼び出し、w...
-
SELECT結果から動的にコンボボ...
-
php ログインフォーム作成
-
VBA初心者です。
-
チェックボックスでチェックし...
-
sortableを使用したデータのUPDATE
-
php mysqlで作ったデータをgoog...
-
mysql_insert_id()の使い方
-
PHPとSmartyを使い、データベー...
-
MySQLに保存した画像を表示したい
-
PHP+MySQLでの配列のinsert文に...
おすすめ情報