Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Access 2016)
VBAでOUTLOOKの署名の取得について
投稿日時: 18/03/01 20:53:58
投稿者: hame

ネットで検索したところ、OUTLOOKのデフォルトの署名は
strSign = objMAIL.Body
で、取得できるとのことで試したのですが
大きくは問題はないのですが
署名の中にメールアドレスがあるのですが
そこの部分だけ
メールアドレス<mailto:メールアドレス>
と<>の部分が表記されてしまいます
OUTLOOK自身での署名には<>の部分はありません
出ないようにする方法はありますでしょうか?

回答
投稿日時: 18/03/02 09:36:30
投稿者: きぬあさ
投稿者のウェブサイトに移動

こんにちは。
Outlook 2016で確認してみましたが、たしかにメールアドレス部分に「<mailto:***>」が表示されますね。
ザックリとした対処法ですが、正規表現( http://officetanaka.net/excel/vba/tips/tips38.htm )でmailto部分を削除してはいかがでしょうか。
 

With CreateObject("VBScript.RegExp")
  .Pattern = " <mailto:.*> "
  .IgnoreCase = True
  .Global = True
  Debug.Print .Replace(strSign, "")
End With

投稿日時: 18/03/03 02:12:48
投稿者: hame

ありがとうございました
うまくいきました