![\"\"](\"https:\/\/www.jimuya.com\/wp-content\/uploads\/img_60171f0607436.png\")
<\/a><\/p>\r\n<\/p>\r\n\r\n\r\n\r\n
VBA\u30de\u30af\u30ed\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u30b3\u30fc\u30c9<\/h2>\r\n\r\n\r\n\r\n
VBA\u521d\u5fc3\u8005\u3067\u3059\u304c\u3001<\/p>\r\n
\u4ee5\u4e0b\u306e\u3088\u3046\u306aVBA\u306e\u30b3\u30fc\u30c9\u3092\u4f5c\u6210\u3057\u307e\u3057\u305f\u3002<\/p>\r\n
<\/p>\r\n
Sub \u7d4c\u8cbb\u7cbe\u7b97\u660e\u7d30\u30e1\u30fc\u30eb()
‘SheerA \u306e\u5ba3\u8a00
Dim SheetB As Worksheet<\/p>\r\n
‘SheetA\u306e\u5b9a\u7fa9
Set SheetA = ThisWorkbook.Worksheets(“\u30e1\u30fc\u30eb\u5185\u5bb9”)<\/p>\r\n
‘\u8868\u3092\u30b3\u30d4\u30fc
With SheetA
With .Range(.Range(“A7”), .Cells(.Rows.Count, 4).End(xlUp))
.Copy
End With
End With
‘outlook\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u751f\u6210
With CreateObject(“Outlook.Application”)
‘\u30e1\u30fc\u30eb\u4f5c\u6210
With .CreateItem(olMailItem)
.BodyFormat = olFormatHTML
.To = SheetA.Range(“B2”).Value
.CC = SheetA.Range(“B3”)
.Subject = SheetA.Range(“B4”).Value
.Display
With .GetInspector.WordEditor.Windows(1).Selection
.TypeText SheetA.Range(“B1”).Value & “\u3000\u69d8” & vbCrLf & vbCrLf
.TypeText SheetA.Range(“B5”).Value & vbCrLf
.Paste
End With
End With
End With
End Sub<\/p>\r\n<\/div>\r\n\r\n\r\n\r\n
<\/p>\r\n\r\n\r\n\r\n
\u30de\u30af\u30ed\u306e\u52d5\u4f5c\u3068\u3057\u3066\u306f\u3001<\/p>\r\n
\uff11\uff0e\u6307\u5b9a\u3057\u305f\u7bc4\u56f2\u306e\u8868\u3092\u30e1\u30fc\u30eb\u306b\u8cbc\u308a\u4ed8\u3051\u3066<\/strong><\/p>\r\n \uff12\uff0e\u30e1\u30fc\u30eb\u3092\u8868\u793a<\/strong><\/p>\r\n \uff13\uff0e\u3042\u3068\u306f\u9001\u4fe1\u30dc\u30bf\u30f3\u3092\u62bc\u3059\u3060\u3051<\/strong><\/p>\r\n \u3068\u8a00\u3046\u30b7\u30f3\u30d7\u30eb\u306a\u3082\u306e\u3092\u4f5c\u6210\u3057\u307e\u3057\u305f\u3002<\/p>\r\n <\/p>\r\n Excel\u306e\u300cMail\u300d\u30b7\u30fc\u30c8\u306b<\/p>\r\n \u4ee5\u4e0b\u306e\u3088\u3046\u306a\u5165\u529b\u30d5\u30a9\u30fc\u30de\u30c3\u30c8\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\r\n \u4e0b\u306e\u8868\u304c\u30d4\u30dc\u30c3\u30c8\u30c6\u30fc\u30d6\u30eb\u306b\u306a\u3063\u3066\u3044\u308b\u306e\u3067<\/p>\r\n \u540d\u524d\u3092\u5909\u66f4\u3059\u308b\u3068\u6c0f\u540d\u3084\u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9\u3001\u660e\u7d30\u304c<\/p>\r\n \u81ea\u52d5\u3067\u5909\u66f4\u3055\u308c\u307e\u3059\u3002<\/p>\r\n \u00a0<\/p>\r\n \u30e1\u30fc\u30eb\u30a2\u30c9\u30ec\u30b9\u7b49\u306e\u5185\u5bb9\u306e\u4e0b\u306b\u3042\u308b<\/p>\r\n \u300c\u30e1\u30fc\u30eb\u4f5c\u6210\u300d\u306e\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3059\u308b\u3068\u3001<\/p>\r\n \u4ee5\u4e0b\u306e\u3088\u3046\u306b\u30e1\u30fc\u30eb\u306e\u4f5c\u6210\u753b\u9762\u304c\u8868\u793a\u3055\u308c\u307e\u3059\u3002<\/p>\r\n \u3042\u3068\u306f\u5185\u5bb9\u3092\u78ba\u8a8d\u3057\u3066\u9001\u4fe1\u30dc\u30bf\u30f3\u3092\u62bc\u3059\u3060\u3051\u3067\u3059\u3002<\/p>\r\n\u64cd\u4f5c\u30a4\u30e1\u30fc\u30b8<\/h2>\r\n
<\/a><\/p>\r\n