[5分]邮箱类型的变量怎么赋值给字符串变量？

如题，我在下面的代码中将地址赋值给Q，但是它总是弹出“运行时错误‘91’  对象变量或With块变量未设置”

代码如下：  

'获取Oulook中已有的帐号集合用户名和邮箱地址

    Dim a As Outlook.Account
    Dim b As Outlook.Accounts
    Set b = Outlook.Application.Session.Accounts
    For Each a In b
        MsgBox a.UserName & "," & a.SmtpAddress
        MsgBox a.CurrentUser
    Next
    q = a.SmtpAddress

求解！