Compile Error

[andrewb90]

Hello all,

I get a "Compile Error - Wrong number of arguments or invalid property assignments" every time I try to run my code. I've been changing this little section, and I feel like I must have missed something little that is causing my error.

Else  Gmail "email@gmail.com", "password", "", _
    "o> " & vbNewLine & Sheets("Print").Range("AH4") & vbNewLine & Sheets("Print").Range("AH5"), _
    vbNewLine & Sheets("Print").Range("AH6") & "  " & Sheets("Print").Range("AI6") & "  " & Sheets("Print").Range("AJ6").Value & "  " & Sheets("Print").Range("AK6") & "  " & Sheets("Print").Range("AL6").Value, _
    vbNewLine & Sheets("Print").Range("AH7") & "  " & Sheets("Print").Range("AI7") & "  " & Sheets("Print").Range("AJ7").Value & "  " & Sheets("Print").Range("AK7") & "  " & Sheets("Print").Range("AL7").Value, _
    sTo, _
    "1@2.3", _
    pdf
End If

Thanks,

Andrew

 

[Norie]

Is Gmail a function/sub?

If it is then the multiple arguments being passed to it should be enclosed in ().

 

[andrewb90]

Gmail is a function.

When I have the code like this it works:

Else  Gmail "email@gmail.com", "password", "", _
    "o> " & vbNewLine & Sheets("Print").Range("AH4") & vbNewLine & Sheets("Print").Range("AH5") & vbNewLine & Sheets("Print").Range("AH6") & "  " & Sheets("Print").Range("AI6") & "  " & Sheets("Print").Range("AJ6").Value & "  " & Sheets("Print").Range("AK6") & "  " & Sheets("Print").Range("AL6").Value & vbNewLine & Sheets("Print").Range("AH7") & "  " & Sheets("Print").Range("AI7") & "  " & Sheets("Print").Range("AJ7").Value & "  " & Sheets("Print").Range("AK7") & "  " & Sheets("Print").Range("AL7").Value, _
    sTo, _
    "1@2.3", _
    pdf
End If

So I'm just doing something wrong when I try to put new lines in the vba code so that it's not too long to read.

 

[Norie]

Can you post the code for Gmail?

 

[BobUmlas]

You're missing the "&" before the vbNewLine

 

[andrewb90]

Here's what I have and it still doesn't seem to be working:

Gmail "email@gmail.com", "password", "" _    "o> " & vbNewLine & Sheets("Print").Range("AH4") & vbNewLine & Sheets("Print").Range("AH5") _
& vbNewLine & Sheets("Print").Range("AH6") & "  " & Sheets("Print").Range("AI6") & "  " & Sheets("Print").Range("AJ6").Value & "  " & Sheets("Print").Range("AK6") & "  " & Sheets("Print").Range("AL6").Value, _
& vbNewLine & Sheets("Print").Range("AH7") & "  " & Sheets("Print").Range("AI7") & "  " & Sheets("Print").Range("AJ7").Value & "  " & Sheets("Print").Range("AK7") & "  " & Sheets("Print").Range("AL7").Value, _
    sTo _
    "1@2.3" _
    pdf