sants-1

test

sants-1

Function MoveTo(psl)
MoveTo = ""
If InStr(psl, "送信者名1") > 0 Then MoveTo = "親フォルダ/子フォルダ/孫フォルダ"
If InStr(psl, "送信者名2") > 0 Then MoveTo = "親フォルダ/子フォルダ/孫フォルダ"
End Function


Sub toFolder()

Set myapp = CreateObject("Outlook.Application")