VBA - help to make e-mailadresse based on a specific cellvalue.

[FredrikUhre]

Hello
I have created a code so the subject and body of the e-mail is based on a specific cell. Can anybody tell how to make the string for the recipient, based on a specifik cell.

My code is down below, i hobe somebody can help me with this problem.

Sub SendEmail()
    Dim objOutlook As Object
    Dim objMail As Object
    Dim strTo As String
    Dim strSubject As String
    Dim strBody As String
    'Set email properties
    strTo = Sheets("Ark1").Cells(4, 2) 
    strSubject = Sheets("Ark1").Cells(2, 2)
    strBody = Sheets("Ark1").Cells(1, 2)
    'Create Outlook object
    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
    'Set email recipients, subject, and body
    With objMail
        .To = strTo
        .Subject = strSubject
        .Body = strBody
        .Send
    End With
    'Clean up
    Set objMail = Nothing
    Set objOutlook = Nothing
End Sub

 

[Kaper]

But you already have in the code:

    strTo = Sheets("Ark1").Cells(4, 2)

so string strTo is a value from cell B4 from sheet Ark1

and then use it in
objMail.To

may be in cell B4 you dont't have a valid e-mail address?

 

[FredrikUhre]

Thank you i mix colums and rows it shoul have taken D2, and now it works

 

[Kaper]

Gald to hear that*. And thanks for marking my post as a solution.

*) of course I'm glad because you noted this, not because you misplaced columns and rows. Almost (?) everybody programming in VBA did that (I did many times), so John 8:7 applies