Accessでメールを受信する①

Pocket

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キロの重しを載せて
走っていたようです。

本日も最後までお読みいただきありがとうございます。