ホームページ制作・スマホサイト制作・インターネット戦略のご相談は、新潟県長岡市のITの町医者、株式会社アテンドまで

暑くなったり寒くなったりで、暖房機器をいつしまえばと悩んでいるうちに梅雨が迫ってきました。
衣替えのシーズンでもありますが、早めに実施されている企業もあるようですね。
涼しい服装でお仕事も軽快に！今月も軽快に3記事ご紹介いたします。

セルA1:#
セルB1:受信日
セルC1:件名
セルD1:差出人
セルE1:アドレス

Sub Get_OLData()
	Dim i, j As Long
	Dim objOutlook As Outlook.Application
	Dim objNameSpace, objFolder, objMailItem As Object
	
	Set objOutlook = CreateObject("Outlook.Application")
	Set objNameSpace = objOutlook.GetNamespace("MAPI")
	Set objFolder = objNameSpace.GetDefaultFolder(6)
		
	Range("A2:E65535").ClearContents
	i = 2
	For j = 1 To objFolder.Items.Count
		Set objMailItem = objFolder.Items(j)
		If InStr(objMailItem.Subject, "お問い合わせ") > 0 Then
			Cells(i, 1).Value = i - 1			Rem 番号
			Cells(i, 2) = objMailItem.ReceivedTime	Rem 受信日
			Cells(i, 3) = objMailItem.Subject		Rem 件名
			Cells(i, 4) = objMailItem.SenderName	Rem 差出人
			Cells(i, 5) = objMailItem.SenderEmailAddres	Rem メールアドレス
			i = i + 1
		End If
	Next j
	Set objOutlook = Nothing
	Set objNameSpace = Nothing
	Set objFolder = Nothing
	MsgBox "Finish"
End Sub

※このページを参考にしました:Microsoft TechNet Office Space