AccessでOutLookで受けたメールを受信します。
最初にメールのデータを保管するテーブルを作成します。
次に添付ファイルを保存するテーブルを作ります。
簡単なフォームを作り、ここにコマンドボタンを一つ作ります。
コマンドボタンのプロパティ→イベントタブ→クリック時
に次のVBAコードを入力します。
Private Sub コマンド0_Click()
”’—コード1｜このコード内で使用する変数を宣言
Dim InboxFolder, i, n, k, attno As Long
Dim sender, mes, path1 As String
Dim outlookObj As Outlook.Application
Dim myNameSpace, objmailItem As Object
Dim fso As FileSystemObject
”’—コード2｜定義した変数に必要な項目をセット
Set outlookObj = CreateObject(“Outlook.Application”)
Set myNameSpace = outlookObj.GetNamespace(“MAPI”)
Set InboxFolder = myNameSpace.GetDefaultFolder(6)
n = 2
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cnn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset
Set cnn = CurrentProject.Connection
Set rs = New ADODB.Recordset
Set cnn1 = CurrentProject.Connection
Set rs1 = New ADODB.Recordset
rs.Open “受信メール”, cnn, adOpenKeyset, adLockOptimistic
rs1.Open “添付ファイル”, cnn1, adOpenKeyset, adLockOptimistic
”’—コード4｜解析する受信メールの範囲を決める
MsgBox InboxFolder.Items.Count
For i = 1 To InboxFolder.Items.Count
Set objmailItem = InboxFolder.Items(i)
”’—コード5｜受信メールの件数、受信日時、件名(タイトル)、送信者名、送信元のメールアドレス、内容(本文)を取得
‘Range(“A” & n).Value = i
rs.AddNew
rs!受信日時 = objmailItem.ReceivedTime
rs!件名 = Left(objmailItem.subject, 20)
rs!相手 = objmailItem.SenderName
rs!送信元アドレス = objmailItem.SenderEmailAddress
rs!本文 = Left(objmailItem.Body, 200)
rs.Update
”’—コード6｜メールの添付ファイルを保管する
attno = objmailItem.Attachments.Count
If attno > 0 Then
For k = 1 To attno
objmailItem.Attachments(k).SaveAsFile (“C:\Users\km-of\Dropbox\添付ファイル” & “\” & objmailItem.Attachments(k).DisplayName)
rs1.AddNew
rs1!受信メールID = rs!受信メールID
rs1!アドレス = “C:\Users\km-of\Dropbox\添付ファイル” & “\” & objmailItem.Attachments(k).DisplayName
rs1.Update
Next
Else
End If
Next i
rs1.Close
Set rs1 = Nothing
cnn1.Close
Set cnn1 = Nothing
rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
”’—コード7｜セットした変数を解除
Set outlookObj = Nothing
Set myNameSpace = Nothing
Set InboxFolder = Nothing
End Sub
細かい解説はまた今度。
このコードもExcelでOutlookを受信するコードをAccess用に変更しました。
参照元のサイトです。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
事業承継税制の本を読んでみました。
読めば読むほど、過去の自社株対策やらない方がよかったなと思います。
今までの苦労は何だったのだろう・・・
急に秋めいてきました。
今まで暑い中走ってきましたが、涼しくなったら、体が軽い！
別にやせたわけではありませんが、今まで10キロの重しを載せて
走っていたようです。
本日も最後までお読みいただきありがとうございます。
