作業ブックに
Sub データー保存()
Application.DisplayAlerts = False
On Error Resume Next
Worksheets(Array("記載方法", "提出図書(参考)", "消防の指摘一覧(参考資料)").Delete
Application.DisplayAlerts = True
Application.Dialogs(xlDialogSaveAs).Show Arg1:="\" & Range("P1").Value, Arg2:=xlOpenXMLWorkbookMacroEnabled
Worksheets("提出シート").Activate
Range("B1", "H47").Select
myBook = ThisWorkbook.Path
ActiveWorkbook.SaveAs Filename:=myBook & "\" & Range("P1").Value & "●.xlsx", FileFormat:=xlOpenXMLWorkbook
Application.Quit
With ThisWorkbook
.Saved = True
.Close False
End With
End Sub
のコードが有ります。このコードを実行すると
1.不要表示シートが削除
2.P1値でのファイル名で「マクロ有効:xlsm」保存
3.P1値でのファイル名で「Excelブック:xlsx」保存
されます。
このコードを利用して
3.P1値でのファイル名で「Excelブック:xlsx」のファイルを添付ファイルとして
下記の設定でOutlookのメールを送る方法を教えてください。
Set oApp = CreateObject("Outlook.Application")
Set omail = oApp.CreateItem(0)
With omail
.To = Range("AE2").Value
.cc = Range("AE3").Value & " ; " & Range("AE4").Value & " ; " & Range("AE5").Value
.Subject = Range("P1").Value
.Body = "受付担当者 様" & vbCrLf & "お世話になっております。" & vbCrLf _
& "受付シートをお送りいたします。" & vbCrLf & "ご確認をお願い致します。" & vbCrLf & vbCrLf & _
Range("C20").Value & vbCrLf & Range("D18").Value & vbCrLf & "「TEL:」" & Range("F18").Value & _
vbCrLf & "「携帯:」" & Range("F19").Value & vbCrLf & "「メール:」" & Range("F21").Value
以上となります。
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
ちょっとかじった程度です。
.Attachments.Add Source:="xxxxx"
"xxxxx"はフルパス!
をつかえばできそうです。
この質問の内容では
myBook & "\" & Range("P1").Value & "●.xlsx"
とすればよろしいかと思います。
参考URL
【Excel VBA】メール作成および選択した資料を添付する方法
https://works.forward-soft.co.jp/blog/detail/10382
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ADOで複数のBookから抽出
-
VBA シートをコピーする際に Co...
-
エクセルVBAで読み取りパスワー...
-
マクロを使って不特定のファイ...
-
別ブックをダイアログボックス...
-
エクセルのVBAコードについて教...
-
フォルダ内の全てのファイルに...
-
エクセルのマクロについて教え...
-
Excel2007VBAファイルの表示に...
-
GetOpenFileNameで開いたブック...
-
ExcelのVBAです。フォルダ内の...
-
VBA 複数のエクセルから一つの...
-
VBAで別ブックのシートを指定し...
-
WSHによるExcelのセルコピー&...
-
VBA シート名が一致した場合の...
-
ユーザーフォームの切り替えに...
-
VBA コードを実行すると画面が...
-
【マクロ】違うフォルダにある...
-
エクセルのマクロについて教え...
-
VBAで複数のブックを開かずに処...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
VBA 別ブックからコピペしたい...
-
【ExcelVBA】インデックスが有...
-
VBA コードを実行すると画面が...
-
VBAで別ブックのシートを指定し...
-
【ExcelVBA】zip圧縮されたCSV...
-
VBA シート名が一致した場合の...
-
VBA 実行時エラー 2147024893
-
VBAで別のブックにシートをコピ...
-
VBS Bookを閉じるコード
-
【マクロ】違うフォルダにある...
-
ユーザーフォームの切り替えに...
-
[Excel]ADODBでNull変換されて...
-
vbaで他のブックに転記したい。...
-
【Excel VBA】書き込み先ブック...
-
Excel2007VBAファイルの表示に...
-
VBAで複数のブックを開かずに処...
おすすめ情報