Accessã§å·®èŸŒã¡ãŒã«ãéä¿¡ãã
äºåã®çŸå Žã§ã¯ãç¹å®ã®èŠçŽ ã«åºã¥ããŠãåå¥ã«ã¡ãŒã«ãäœæãéãæ©äŒãæå€ãšå€ãã§ããçŽè¿ã ãã§ã4ä»¶ãåæ§ã®éèŠããããŸããããããã®èŠæã«ã¯ãããŸã§ã¯ãWordã®å·®èŸŒå°å·æ©èœãå©çšããŠãæå®ã®ã¡ãŒã©ãŒã§éä¿¡ããããšãã£ãããã³ããã°ã©ãã³ã°ãªææ³ãçšããããŠããŠããŸããã
ãããããã®ææ³ã瀟å ã«ã¡ãŒã«ãµãŒããæã£ãŠãããããªæã ã£ããæå¹ã ã£ãã®ã§ãããçŸä»£ã®ããã«ãã¯ã©ãŠããã«ããŠããŸã£ãŠããå Žåãéä¿¡å¶éã«æµè§ŠããŠã¢ã«ãŠã³ããåçµãããæãããããŸãã
äŸãã°ãMicrosoft365ã®å Žåã
- 1åéã«30é以äžéä¿¡ãããšã¢ãŠã
- ïŒæ¥ããã10,000é以äžã®ã¡ãŒã«éä¿¡
- 1床ã«éããéä¿¡å ã¯500åãŸã§
- å蚺è ã®ãããã·ã¢ãã¬ã¹å¶éã¯400åãŸã§
- 1ã¡ãŒã«ããã25MBãŸã§ïŒåæå€ïŒ - æå€§150MBãŸã§ç®¡çè ã§ããã°æ¡åŒµå¯èœ
- æ·»ä»ãã¡ã€ã«ã®ãµã€ãºã¯34MBãŸã§ã倧容éãã¡ã€ã«BoxãOneDriveãªã©ã®ãªã³ã¯ãå ¬éãããã¹ã¯ãŒããä»äžããŠéããšè¯ã
ç¹ã«1ã€ç®ã®30é以äž/1åéã®å¶éãå³ããã差蟌å°å·ã§ã¡ãŒã«éä¿¡ããããšã軜ãã¢ã«ãŠã³ãåçµãããŠããŸããŸããä»åã¯ãã®èª²é¡ãã¯ãªã¢ãã€ã€ãæå®ã®ã¡ã³ããŒãžåå¥ã®ã¡ãŒã«ãéä¿¡ããŠã¿ãããšæããŸããïŒä»åã¯1åéã«20ééãããã«ããŠããŸãïŒ
ç®æ¬¡
ä»å䜿çšãããã¡ã€ã«ãã©ã€ãã©ãª
- postman.7z - ããã°ã©ã æ¬äœãã®ä»ãå ¥ã£ãŠããµã³ãã«
- 瀟å¡ãã¹ã¿ãã³ãã¬ãŒã - ã€ã³ããŒãçšã®xlsxãã¡ã€ã«
â»ä»åã®Accessã¢ããªã¯64bitçãšããŠäœæããŠããŸãã®ã§ã32bitçã§åãããšäžå ·åãåºããšæããŸãã
ãŸããä»åã®ã¢ããªã§ã¯ã以äžã®ã©ã€ãã©ãªãå©çšããŠããŸãã
- Access Ribbon External Image Library - ãªãã³ã®ã¢ã€ã³ã³ã§ç¬èªç»åã䜿ãçºã®ã©ã€ãã©ãª
- ã¡ãŒã«ã¢ãã¬ã¹åœ¢åŒãã§ã㯠- æ£èŠè¡šçŸã§ã¡ã¢ãã®ç²Ÿæ»ãè¡ãªã
ã¢ããªã®ä»æ§
ä»åã®ã¢ããªã±ãŒã·ã§ã³ã¯ããŠãŒã¶ãžçŸåšã®å®æåžã®ç»é²ããŒã¿ãåå¥ã«éç¥ããçºã®ããã°ã©ã ã§ãã以äžã®ãããªä»æ§ãå«ãŸããŠããŸãã
- 瀟å¡ãã¹ã¿ã«ã¯ç€Ÿå¡ã®ããŒã¿ã宿åžã®ããŒã¿ãçšæããŠãã
- éä¿¡æãã¹ã¿ã¯ãéä¿¡ããã¡ãŒã«ã®ããããæ¬æã眲åãè¿ä¿¡å ã¢ãã¬ã¹ãªã©ãæ ŒçŽããŠããã
- Reply-Toã«å¯Ÿå¿ããŠãããè¿ä¿¡å ã¢ãã¬ã¹ã§éä¿¡å ãšã¯éããã°ã«ãŒãã¢ãã¬ã¹ãæå®å¯èœ
- éä¿¡æã®æ°èŠè¿œå ã»æ¢åããŒã¿ã®ç·šéçšãã€ã¢ãã°ãçšæ
- åçæéã¯ãè¥¿æŠ + ææ¥ãã§è¡šèšãã
- ã¡ãŒã«ã¯HTML圢åŒãšããæ¹è¡ã³ãŒãã¯ãã¹ãŠ<br>ã¿ã°ã«å€æããŠæ¿å ¥ãã
- æ¢åã®ç»é²ããŒã¿ã¯èµ·åæã«èªåçã«5äžä»£ããã¯ã¢ãããè¡ã
- ä»»æã®ã¿ã€ãã³ã°ã§æ¢åããŒã¿ãZIP圢åŒã§ããã¯ã¢ããã»åŸ©å åºæ¥ãæ©èœãä»ããŠããïŒ7zip64.dll察å¿ïŒ
- ã¡ãŒã«ã®é£ç¶éä¿¡ã¯ãOutlookãçŽæ¥æäœãã1ééãæ¯ã«3ç§éã®ãŠã§ã€ããæããããã«ããŠããŸãã
ãŸããä»åã®ããã°ã©ã ã¯ä»¥äžã®åç §èšå®ïŒäºåãã€ã³ãã£ã³ã°ïŒãå ¥ããŠããŸãã
- Microsoft Office 16.0 Object Library - Accessã®ãªãã³ã³ã³ãããŒã«ãFileDialogã®åŒã³åºãã§å¿ èŠ
- Microsoft Outlook 16.0 Object Library - Outlook 2019ãé éæäœããããã«å¿ èŠ
- Microsoft Scripting Runtime - ãã¡ã€ã«ã®ååšç¢ºèªãªã©ã§Filesystem Objectã䜿ãããã«å¿ èŠ
- Microsoft VBScript Regular Expressions 5.5 - ã¡ãŒã«ã¢ãã¬ã¹åœ¢åŒç¢ºèªã§æ£èŠè¡šçŸã䜿ãããã«å¿ èŠ
ãœãŒã¹ã³ãŒã
瀟å¡ãã¹ã¿ããŒã¿ã®ã€ã³ããŒã
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 |
'æ°ãã瀟å¡ãã¹ã¿ããŒã¿ãæã£ãŠããŒã¿ãæŽæ°ãã Public Function newemp_import() Dim strpath As String Dim ret As Integer 'ãã¡ã€ã«ãéããã€ã¢ãã°çš Dim dlg As Object, boolResult As Boolean Dim strFiles As String, i As Long Dim myStr As String 'ãªããžã§ã¯ã倿°ã«FileDialogãªããžã§ã¯ãã代å
¥ Set dlg = Application.FileDialog(msoFileDialogSaveAs) With Application.FileDialog(msoFileDialogFilePicker) 'è€æ°éžæå¯èœããèšå® .AllowMultiSelect = False 'ãã¡ã€ã« ãã€ã¢ãã° ããã¯ã¹ã®ã¿ã€ãã«èšå® .title = "瀟å¡ãã¹ã¿ããŒã¿ã®ã€ã³ããŒã" '衚瀺ãããåæãã¹ãŸãã¯ãã¡ã€ã«åãèšå® .InitialFileName = CreateObject("WScript.Shell").SpecialFolders.Item("Desktop") & "" 'åæãã¥ãŒãèšå®(ããŒãžã§ã³ã«ãã£ãŠç¡èŠããã) .InitialView = msoFileDialogViewWebView 'ãã¡ã€ã« ãã£ã«ã¿ã®ã³ã¬ã¯ã·ã§ã³è¿œå With .filters .Clear .Add "瀟å¡ãã¹ã¿", "*.xls;*.xlsx" End With 'Showã宣èšããæã§ãã€ã¢ãã°ãéããããæ»ãå€ã¯ä»¥äžã®éã 'ãã¡ã€ã«ããã©ã«ããéžæãâãTrue 'ãã£ã³ã»ã«ãæŒããããâãFalse If .Show = True Then myStr = .SelectedItems(1) strpath = myStr Else myStr = "" MsgBox "ãã£ã³ã»ã«ãããŸããã" Exit Function End If End With 'ãã¡ã€ã«ãã¹ãæž¡ã ret = renewimport(strpath) End Function 'æ°ç€Ÿå¡ãã¹ã¿ããŒã¿ãæã£ãŠããŒã¿ãæŽæ°ããã«ãŒãã³ Function renewimport(targetdbpath As String) As Integer On Error Resume Next Dim foldername As Variant Dim FileName As String Dim result As Variant Dim fieldcnt As Variant Dim strSQL As Variant Dim varRet As Variant 'DBæ¥ç¶çšã®å€æ°å®£èš Dim db As DAO.Database Set db = CurrentDb Dim tdf As DAO.TableDef '該åœã¬ã³ãŒããåŠçæžã¿ã«ãªã£ãŠãå Žååãåããããã result = MsgBox("éžæãã瀟å¡ãã¹ã¿ããŒã¿ã§ããŒã¿ãåã蟌ã¿ãŸããïŒæ¢åã®ç€Ÿå¡ãã¹ã¿ããŒã¿ã¯ææ°ã®ããŒã¿ã«äžæžããããŸããïŒïŒ", vbYesNo + vbDefaultButton2 + vbExclamation) If result = vbYes Then 'ã€ã³ããŒãåŠçãç¶è¡ãã Else 'ã¡ãã»ãŒãžã衚瀺 MsgBox "ããŒã¿ã®ã€ã³ããŒãããã£ã³ã»ã«ããŸããã" 'çµäºåŠç db.Close: Set db = Nothing Set tbf = Nothing Exit Function End If '念ã®çºãªã³ã¯ããŒãã«ãè§£é€ããŠãã DoCmd.DeleteObject acTable, "m_employee" 'ããŒãã«ãªã³ã¯ãäœæãã DoCmd.TransferSpreadsheet acLink, , "m_employee", targetdbpath, True, "察象è
äžèЧ!" 'èŠåãã€ã¢ãã°ãON(æ»ã) DoCmd.SetWarnings False '瀟å¡ãã¹ã¿ãå
šåé€ãã DoCmd.OpenQuery "瀟å¡ãã¹ã¿å
šåé€" 'ããŒã¿è¿œå ã¯ãšãªãå®è¡ãã DoCmd.OpenQuery "瀟å¡ãã¹ã¿å·®å远å " 'èŠåãã€ã¢ãã°ãON(æ»ã) DoCmd.SetWarnings True 'ãªã³ã¯ããŒãã«ãè§£é€ãã DoCmd.DeleteObject acTable, "m_employee" 'çµäºåŠç MsgBox "瀟å¡ãã¹ã¿ã®æŽæ°ãšå·®åã®è¿œå ãå®äºããŸããã" 'ãã¹ã¿ç·šéãéãããŠãããã瀟å¡ãã¹ã¿ãµããã©ãŒã ããªããŒããã If SysCmd(acSysCmdGetObjectState, acForm, "ãã¹ã¿ç·šé") <> 0 Then 'éããŠããã®ã§ã瀟å¡ãã¹ã¿ã®ãµããã©ãŒã ããªããŒã Forms!ãã¹ã¿ç·šé!subform.Requery Else 'éããŠããªãã®ã§äœãããªã End If 'ãªããžã§ã¯ãã®éæŸ db.Close: Set db = Nothing Set tbf = Nothing End Function |
- FileDialogã«ãŠçšæããŠãããxlsxã®ãªã¹ãã«ãªã³ã¯ããŒãã«ã匵ã£ãŠããŸãã
- xlsxãã¡ã€ã«ã®ãã¹ã¯ãrenewimportã®åŠçãžéãããããã§å®éã®ã¡ã€ã³ã®åŠçãå®è¡ãããä»çµã¿ã§ãã
- 察象è äžèЧã·ãŒããm_employeeãšããŠãªã³ã¯ããŒãã«ãèšå®ããŠããŸãã
- 瀟å¡ãã¹ã¿ããŒãã«ãå šåé€â瀟å¡ãã¹ã¿ãžããŒã¿ã远å ãšãã圢ã§ãæŽãæ¿ãã§ããŒã¿ãåã蟌ãã§ããŸãã
- ãã¹ã¿ç·šéç»é¢ãéãããŠããå Žåã瀟å¡ãã¹ã¿ã®ãµããã©ãŒã ãåèªèŸŒããã³ãŒããæåŸã«å®è¡ããŠããŸãã
ã¡ãŒã«ã®äžæ¬éä¿¡
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 |
'ã¡ãŒã«äžæ¬éä¿¡ã¡ã€ã³ã«ãŒãã³ Private Sub ã³ãã³ã3_Click() 'éåžžã®å€æ°ã®å®£èš Dim result As Variant 'éžæé
ç®ã®IDãååŸãã Dim seleid As Variant seleid = Me.connid.value 'éžæé
ç®ã空ã®å Žå If seleid = "" Or IsNull(seleid) Then MsgBox "éä¿¡æãéžæãããŠããŸãããã" Exit Sub End If 'åŠçå®è¡ã®ç¢ºèª result = MsgBox("æå®ã®å
容ã§ãã¡ãŒã«ãäžæ¬éä¿¡ããŸããïŒã", vbYesNo + vbDefaultButton2 + vbCritical, "ã¡ãŒã«ã®é£ç¶éä¿¡") If result = vbYes Then 'DBæ¥ç¶çšå€æ° Dim db As DAO.Database Dim rst As DAO.Recordset Dim rsc As DAO.Recordset Set db = CurrentDb Dim strSQL As String Else 'åŠçã®ãã£ã³ã»ã« MsgBox "åŠçã¯ãã£ã³ã»ã«ãããŸããã" Exit Sub End If 'IDãå
ã«ã¬ã³ãŒãããŒã¿ãæœåº strSQL = "SELECT * FROM éä¿¡æãã¹ã¿ WHERE ID=" & seleid 'ã¬ã³ãŒãã»ãããã»ãããã Set rst = db.OpenRecordset(strSQL) Set rsc = db.OpenRecordset("瀟å¡ãã¹ã¿") 'éä¿¡ã¡ãã»ãŒãžã®çµã¿ç«ãŠ Dim body As Variant Dim henshin As Variant Dim limitday As Variant Dim atogaki As Variant Dim signature As Variant Dim replyto As Variant Dim subject As String Dim mailmsg As Variant 'æ¬æã®ååŸ body = rst("æ¬æ") & "<br><br>" 'åçæéãæ¥æ¬èªææ¥ä»ãã«å€æãã Dim kaitou As String kaitou = Format(rst("åçæé"), "Long Date") & "(" & Format(rst("åçæé"), "aaa") & ")" 'ã¡ãŒã«ã»ã¡ãã»ãŒãžãååŸ mailmsg = "<p><b>ããè¿ä¿¡å
容ã</b></p>" & rst("è¿ä¿¡å
容") & "<br><br>" & _ "<p><b>ãåçæéã</b></p>" & kaitou & "<br><br>" & _ "<p>" & rst("ããšãã") & "</p><br><br>" & _ "<p><b>ãæ
ãåœã</b></p>" & rst("æ
åœçœ²å") & "</p>" 'æ¹è¡ã³ãŒãã<br>ã«çœ®ãæã body = Replace(body, vbLf, "<br>") mailmsg = Replace(mailmsg, vbLf, "<br>") 'ã¡ãŒã«ãµããžã§ã¯ããååŸ subject = rst("ä»¶å") 'è¿ä¿¡å
ãååŸ replyto = rst("è¿ä¿¡å
ã¢ãã¬ã¹") 'è¿ä¿¡å
ã¢ãã¬ã¹ã®æç¡ããã§ãã¯ãã If replyto = "" Or IsNull(replyto) Then MsgBox "è¿ä¿¡å
ã¢ãã¬ã¹ã空ã£ãœã§ããã" Exit Sub End If If chkMailAddress(CStr(replyto)) Then Else MsgBox "è¿ä¿¡å
ã¢ãã¬ã¹ãã¡ãŒã«ã¢ãã¬ã¹ã®åœ¢åŒã§ã¯ãªãããã§ã" Exit Sub End If 'ãŠã§ã€ãã¿ã€ã ãååŸãã Dim sleepwait As Variant sleepwait = rst("ãŠã§ã€ã") 'åå¥ããŒã¿ãåããªããïŒéãã€ã¡ãŒã«ãéä¿¡ Dim mailhead As String Dim touroku As String Dim mailman As String Dim teiki As String 'Outlookãªããžã§ã¯ãã®çæ Dim objOutlook As Outlook.Application Dim objMail As Outlook.MailItem 'MailItemãªããžã§ã¯ããçæ Set objOutlook = New Outlook.Application Do Until rsc.EOF 'ã¡ãŒã«äœæã€ã³ã¹ã¿ã³ã¹ã®äœæ Set objMail = objOutlook.CreateItem(olMailItem) 'ã¡ãŒã«ããããäœæãã mailhead = rsc("äŒç€Ÿå") & "<br>" & _ rsc("瀟å¡å") & "æ§<br><br><br>" '宿åžä»£ãã«ã³ãåºåãã«å€æãã teiki = Format(rsc("宿代_6ã¶æ"), "#,##0") 'çŸåšç»é²å
容ãäœæãã touroku = "<p><b>ãçŸåšç»é²å
容ã</b></p>" & "ã»ä¹è»ãã¹åïŒ" & rsc("ä¹è»ãã¹åå") & "<br>" & _ "ã»éè»ãã¹åïŒ" & rsc("éè»ãã¹åå") & "<br>" & _ "ã»å®æåžä»£ãïŒ" & teiki & "<br><br><br>" 'éä¿¡å
ã¡ã¢ããååŸ mailman = rsc("ã¡ãŒã«ã¢ãã¬ã¹") 'ã¡ãŒã«ãçµã¿ç«ãŠãïŒHTMLã¡ãŒã«åœ¢åŒïŒ With objMail .To = mailman .subject = subject .BodyFormat = olFormatHTML 'ã¡ãŒã«ã®åœ¢åŒ .ReplyRecipients.Add replyto .HTMLBody = mailhead & body & touroku & mailmsg 'ã¡ãŒã«æ¬æ 'ã¡ãŒã«ãéä¿¡ãã .Send End With 'æå®ç§æ°ãŠã§ã€ã Sleep sleepwait '次ã®ã¬ã³ãŒããžç§»å rsc.MoveNext Loop 'çµäºã¡ãã»ãŒãž Set objOutlook = Nothing MsgBox "ã¡ãŒã«ã®éä¿¡ãå®äºããŸããã" 'çµäºåŠç DoCmd.Close acForm, Me.Name 'çµäºåŠç Set rst = Nothing Set rsc = Nothing Set db = Nothing End Sub |
- äžæ¬éä¿¡ãã€ã¢ãã°ã®éä¿¡ãã¿ã³ãå®è¡ããæã«çºåããã³ãŒãã§ãã
- ãã€ã¢ãã°ã®ã³ã³ãããã¯ã¹ã®éžæãããŠããIDãå ã«ãéä¿¡æãã¹ã¿ã®ããŒã¿ãåãåºããŸãã
- åçæéã«ã€ããŠã¯Format颿°ã«ãŠè¥¿æŠ+ææ¥è¡šèšã«ã宿代ã«ã€ããŠã¯Format颿°ã«ãŠã«ã³ãåºåãã«ããŠå€æãæããŠããŸãã
- chkMailAddress颿°ã«ãŠç°¡æçã«ãã¡ãŒã«ã¢ãã¬ã¹åœ¢åŒã®ãã§ãã¯ããè¡ã£ãŠããŸãã
- è¿ä¿¡å ã¢ãã¬ã¹ã空ã®å Žåã«ã¯éä¿¡ã§ããªãããã«ããŠãããŸãã
- .ReplyRecipients.Addãªãã·ã§ã³ã«ãŠãReply-To(è¿ä¿¡å ã¢ãã¬ã¹)ãèšå®å¯èœã§ãã
- BodyFormatãolFormatHTMLã«ããå Žåã«ã¯ãHTMLã¡ãŒã«ãªã®ã§Bodyã§ã¯ãªãHTMLBodyã§æå®ããªããã°ãªããŸããã
- ä»åã¯éä¿¡æã«æå®ç§æ°éã®ã¹ãªãŒããå ¥ããŠãMicrosoft365ã®å¶éãåé¿ãããŠããçºãDeclare Functionã«Sleepãå¿ èŠã§ãã
1 |
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) |
äœ¿ãæ¹ã®æé
æ¬ããã°ã©ã ã¯ç€Ÿå¡ãã¹ã¿ããã³äºåã«çšæããŠãããéä¿¡æã®ãã©ãŒãããã«åŸã£ãŠãã¡ãŒã«ã§éç¥ããããã°ã©ã ã§ãã®ã§ã決ããããæé ã§ããŒã¿ã®æºåãšéä¿¡ãè¡ããªããã°ãªããŸããã
瀟å¡ãã¹ã¿ããŒã¿ã®åã蟌ã¿
æ·»ä»ã®ç€Ÿå¡ãã¹ã¿ãã³ãã¬ãŒãã«ããŒã¿ãæºåããŠãããŸããäŒç€Ÿã¡ãŒã«ã¢ãã¬ã¹ã®åã«ã€ããŠã¯ééãã®ãªãããã«ããã®ã¢ãã¬ã¹ãToãšããŠå©çšããŸãã
æºåãæŽã£ããã
- ãªãã³ã®ãã¡ãŒã«éä¿¡ãã¿ããéã
- ããŒã¿ã®ã€ã³ããŒãã«ããã瀟å¡ãã¹ã¿åã蟌ã¿ããã¯ãªãã¯ã
- çšæããŠãããxlsxãã¡ã€ã«ãæå®ãããšåã蟌ã¿éå§
- åã蟌ã¿ãå®äºãããã瀟å¡ãã¹ã¿ããŒãã«ã«ããŒã¿ãInsertãããŸãã
éä¿¡æãã¹ã¿ã®ããŒã¿äœæ
éä¿¡æãšã¯ãã¡ãŒã«ã«å·®ã蟌ãå ã«ãªããã³ãã¬ãŒããªããŒã¿ã§ããçšéã«å¿ããŠçšæããŠãããšè¯ãã§ããããåé ç®ã¯ä»¥äžã®ãããªäœ¿ããæ¹ãããŸãã
- éä¿¡æå - äžæ¬éä¿¡æã«ã³ã³ãããã¯ã¹ã«åºãŠãããªã¹ãã®åå
- ä»¶å - ã¡ãŒã«éä¿¡æã®Subjecté ç®ãšããŠå©çšãããã
- æ¬æ - ã¡ãŒã«ã®åé æ¬æã«ããããŸããæ¹è¡ã¯ãã¹ãŠBRã¿ã°ã«å€æãããŸãã®ã§ãèŠãç®ã®ãŸãŸã¡ãŒã«ã«å·®ã蟌ãŸããŸãã
- è¿ä¿¡å 容 - æ¬æãšåæ§
- åçæé - 西æŠã«ã¬ã³ããŒã§éžæãå¯èœãå®éã«å·®ã蟌ãŸããæã¯ãè¥¿æŠ + ææ¥ã§ã®è¡šçŸã«å€æãããŸãã
- ããšãã - ããã¯ç¡çã«å ¥ããªããŠãè¯ãã§ãããããããããé¡ãç³ãäžããŸããçãªã¡ãã»ãŒãžãå ¥ããŠãããšç¡é£ã§ãããã
- æ åœçœ²å - éåžžã¯éä¿¡è ã®çœ²åãå ¥ããŠãããŸãããè¿ä¿¡å ã¢ãã¬ã¹ãã°ã«ãŒãã¢ãã¬ã¹ãªãã°ãã°ã«ãŒãã«åŸã£ã眲åãå ¥ããŠãããšè¯ãã§ãããã
- ãŠã§ã€ã - ããã©ã«ãã¯300msã§æ±ºãæã¡ã§ãã
- è¿ä¿¡å ã¢ãã¬ã¹ - FROMãšåãã¢ãã¬ã¹ãå ¥ããŠãOKã§ãã空ã ãšç»é²ã¯ã§ããŸãããçžæãè¿ä¿¡ãã¯ãªãã¯ãããšToã«è¡šç€ºãããã¢ãã¬ã¹ãç»é²ããŠãããŸãã
å³ïŒéä¿¡æç·šéçšãã€ã¢ãã°ã®è¡šç€ºäŸ
ã¡ãŒã«ã®äžæ¬éä¿¡
瀟å¡ãã¹ã¿ã®ã¡ã³ããŒã«å¯ŸããŠãã¡ãŒã«ãéä¿¡ããŸããéä¿¡æãã¹ã¿ã§èšå®ããŠãããå 容ãããã§ããŒããéä¿¡ããŸãããè¿ä¿¡å ã¢ãã¬ã¹ãèšå®ãããŠããªãæã«ã¯ãéä¿¡ãã§ããŸããã®ã§ã泚æãã ããã
å³ïŒã¡ãŒã«äžæ¬éä¿¡ãã€ã¢ãã°
ããŒã¿ã®ããã¯ã¢ãã
æ¬äœããã°ã©ã ã§ããpostman.accdbãèµ·åãããšãããŒã¿ä¿åå Žæã§ããdatabase.accdbã®ããã¯ã¢ããã5äžä»£ã«æž¡ã£ãŠèªåã§äœæããŸããå€ããã®ã¯èªåã§å ¶ã®éã«åé€ãããŸãããã®ããã¯ã¢ãããšã¯å¥ã«ãä»»æã®ã¿ã€ãã³ã°ã§ZIP圢åŒã§åããã®ããããŒã¿ã®ããã¯ã¢ãããæå·åZIPãšãªã£ãŠããã®ã§ãããã¯ã¢ãããã¡ã€ã«ã¯ãã¹ã¯ãŒããå ¥åããªããšè§£åã§ããŸããã
ããã©ã«ããã¹ã¯ãŒãã¯pleasemrpostmanãšãªã£ãŠããŠãVBAã®ã³ãŒãå ã«ãããŸãã
瀟å¡ãã¹ã¿ããã³éä¿¡æãã¹ã¿ã®ããŒã¿ãããã¯ã¢ããããŸãã
é¢é£ãªã³ã¯
- ãã¯ãã§ã¡ãŒã«éä¿¡ - ãšã¯ã»ã«ã®åŠæ ¡
- ãVBAå ¥éãSleep颿°(API)ãWaitã¡ãœããã§åŠçãæ¢ããæ¹æ³
- ã¡ãã»ãŒãžã®åä¿¡ãéç¥ãããã¯ã
- ReplyRecipients ãããã㣠(Outlook)
- Excelãã¯ãã§çæããOutlookã¡ãŒã«ã«å·®åºäººãšã¯å¥ã®è¿ä¿¡å ãæå®ããã
- Exchange Online ã®å¶é