こんな事って出来ますでしょうか?
エクセル2013 マクロを使用して下記のような事は出来ますでしょうか?
4行目 A~N列に見出しがあります。
例えば 5行目A~Nを範囲選択して下記 AA3 または AD3宛にメールを送信します。
To: AA3 (メアド入力済)
件名:AB3 (定型文入力済)
本文:AC3 (定型文入力済)
Cc: AD3 (メアド入力済)
その時、受信側には 上記 AC3と
4行目A~N列の見出しと範囲選択した内容が
箇条書きの様にメール内容として送られてくるような事は出来ますでしょうか?
複数行、範囲選択した場合は受信側が見やすいように
改行等を設けて
見出し と
範囲選択した各行の内容ごと、メールに反映することは出来ますでしょうか?
または5行目以降のC列のいずれかのセルを選択すると
4行目A~N列見出しと選択行のA~Nを
メールで送信は可能でしょうか?
宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
以下のページを参考にBASPを使うと、
http://www.officetanaka.net/excel/vba/tips/tips4 …
こんな感じじゃないかなと思います。
Sub mscro()
Dim bobj, msg As String, C As Range, T As String
Dim Server As String, Mailto As String, MailFrom As String, Subject As String, Body As String
Set bobj = CreateObject("basp21") ''BASP21オブジェクト
Server = "smtp.xxxxx.com" ''SMTPサーバー
Mailto = Range("AA3").Value & vbTab & "cc" & vbTab & Range("AD3").Value ''宛先
MailFrom = "info@xxxxx.com" ''差出し人
Subject = Range("AB3").Value ''タイトル
For Each C In Range("A4:N4")
T = T & vbCrLf & C.Value & ":" & Cells(ActiveCell.Row, C.Column).Value
Next C
Body = Range("AC3").Value & vbCrLf & T ''本文
msg = bobj.SendMail(Server, Mailto, MailFrom, Subject, Body, "")
Set bobj = Nothing
If msg <> "" Then MsgBox msg
End Sub
別途BASPはインストールする必要があります。
http://www.hi-ho.ne.jp/~babaq/basp21.html
ありがとうございます。
一筋縄にはいかないですね。
インストールは、こちらの都合上、
出来ませんが、今後の参考とさせていただきます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 余計なお世話的な「入力規則」?対策は? 2 2023/01/14 12:39
- Excel(エクセル) エクセルのマクロを教えてください。 4 2022/10/06 08:53
- Excel(エクセル) [オートフィルター]機能について 3 2023/02/04 14:32
- Excel(エクセル) エクセルVBA 複数行にまたがっている選択を判定するには 2 2023/05/21 21:54
- Excel(エクセル) Excelにの以下の設定方法について教えてください! C列にデータ入力の設定をしています。(出、入を 3 2022/06/22 01:33
- PDF PDFの表がエクセルに貼り付けられなくなってしまいました。 5 2022/06/03 09:07
- その他(Microsoft Office) 選択行の列範囲に二重線を引く 3 2022/06/08 12:21
- Excel(エクセル) Excelのプルダウンメニューの内容を人によって可変する方法 2 2023/03/28 14:52
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) マクロ セルの選択 5 2022/08/12 22:47
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
visual studio でインデントを...
-
エクセル マウスで選択した範...
-
選択範囲の空白セルに0を入れる...
-
エクセル ダブルクリック入力の...
-
フォトショ画像:背景への画像...
-
テーブルリンク エクセルの4...
-
エクセルのフィルタオプション...
-
EXCEL ボリュームゾーンごとの...
-
EXCEL2007の範囲選択で、選択し...
-
画像の背景を白にしたい。
-
Excelで「名前ボックス」につい...
-
エクセルである行以下全部を削...
-
EXCEL VBAで全選択範囲の解除
-
白飛びした(明るい)写真をiPhon...
-
言語の選択や国の選択をする時...
-
「無」と「未」の使い方
-
Androidのスマホで毎回毎回ホー...
-
VBAでファイルを開くときにファ...
-
PANTONE の 正しいCMYK値の調べ方
-
Excel VBA あるセルでENTERを押...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
visual studio でインデントを...
-
エクセル ダブルクリック入力の...
-
エクセル マウスで選択した範...
-
テーブルリンク エクセルの4...
-
選択範囲の空白セルに0を入れる...
-
EXCELで、関数を使って対象の項...
-
エクセルのマクロで選択範囲の...
-
Cell内の一部を指定する方法(Wo...
-
セル削除右(又は下)方向にシフト
-
反転する時の色を変えたいのですが
-
Wordデータの色を反転させたい
-
EXCEL VBA----離れたセル範囲の...
-
読み上げ機能について
-
EXCEL ボリュームゾーンごとの...
-
EXCEL VBAにて画像処理のアドイ...
-
エクセルのマクロを教えてくだ...
-
Dreamweaverで「選択範囲の周囲...
-
アドレスを指定して削除できる...
-
VBA 罫線を消さずに切り取り A1...
-
Wordで一括範囲指定について
おすすめ情報