VBS Code to Pull Email SMTP Address From Outlook And Send Email

[bakerman]

Try this one as a test.

Sub Read_Contact_Email()
    c00 = "Fullname"
    With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00)
        c01 = .Email1Address
    End With
    MsgBox c01
End Sub

Remember that Fullname has to be exactly the same as in addresslist otherwise you recieve an errormessage.