
作業ブックに
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
End With
Dim oApp As Object
Dim omail As Object
Dim fname As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
fname = ThisWorkbook.Path & "\" & Range("P1").Value & "●.xls"
ThisWorkbook.SaveAs Filename:=fname
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
.Attachments.Add fname
.Display
'.Send
End With
Set oApp = Nothing
Set omail = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
が有ります。
このコードを実行すると
1.不要なシートが削除
2.P1値でのファイル名で「マクロ有効ブック:xlsm」で保存
3.P1値でのファイル名で「Excelブック:xlsx」で保存
4.3.P1値でのファイル名で「Excelブック:xlsx」のファイルを添付ファイルとして
Outlookでメールが送れるように設定しておりますが。
1.2.3.は上手く動作してくれそれぞれのファイルが出来上がりますが
4.のメールがどうしても送信できません、(メール自体も起動しません)
解決方法をお願い致します。
No.2ベストアンサー
- 回答日時:
vbs/wshでメール送信するやり方は知っているが、vbaで可能かどうかはわからない。
メール送信もvbaでやるかvbs/wshと連携するか。いずれにせよOutlookは関係ない。ここまでマクロを組める人ならvbs/wshも読めると思う。(WSH)VBScriptでメール送信 - 3流プログラマのメモ書き
https://3ryupg.hatenablog.com/entry/2018/02/26/0 …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
【ExcelVBA】zip圧縮されたCSV...
-
VBA 別ブックからコピペしたい...
-
Excelファイルを開くとき、読み...
-
Excel にて、 リストボックスの...
-
別ブックをダイアログボックス...
-
2つ目のコンボボックスが動作...
-
サーバーに保存したエクセルフ...
-
複数のブックからデータを転記...
-
複数のフォルダに、順次実行し...
-
【Excel VBA】書き込み先ブック...
-
VBAで別のブックにシートをコピ...
-
[Excel]ADODBでNull変換されて...
-
ワイルドカード「*」を使うとう...
-
転記VBA エラーが出ます
-
VBAで複数のブックを開かずに処...
-
エクセル VBA 他シートの行を選...
-
[Excel VBA] 複数のサブフォル...
-
ACCESSVBA からExcelの他ブック...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
別ブックをダイアログボックス...
-
VBA 別ブックからコピペしたい...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
VBA コードを実行すると画面が...
-
VBAで別のブックにシートをコピ...
-
VBAで別ブックのシートを指定し...
-
【Excel VBA】書き込み先ブック...
-
Excelマクロ 該当する値の行番...
-
【ExcelVBA】zip圧縮されたCSV...
-
[Excel]ADODBでNull変換されて...
-
【ExcelVBA】インデックスが有...
-
Excel2007VBAファイルの表示に...
-
VBAで複数のブックを開かずに処...
-
vbaで他のブックに転記したい。...
-
エクセルマクロで、他ブックか...
-
vbaでvbaProjectのパスワード解...
-
VBA 実行時エラー 2147024893
-
【マクロ】違うフォルダにある...
おすすめ情報