changing vba cell reference

[andrewb90]

hello all,

I have been using VBA to send emails out to a set email address and corresponding password, however I need to reference a cell so that it can be changed as needed. I'm hoping I just made a little error...

This is the original:

  sTo = Right(sTo, Len(sTo) - 1)        Gmail "email@gmail.com", "password", "" _
        , "o> " _
        & vbNewLine & Sheets("Print").Range("D1")

Here is what I tried to do:

  sTo = Right(sTo, Len(sTo) - 1)        Gmail "Sheets("Home").Range("P16")", "Sheets("Home").Range("P18")", "" _
        , "o> " _
        & vbNewLine & Sheets("Print").Range("D1") _

 

[Fishboy]

hello all,

I have been using VBA to send emails out to a set email address and corresponding password, however I need to reference a cell so that it can be changed as needed. I'm hoping I just made a little error...

This is the original:

  sTo = Right(sTo, Len(sTo) - 1)        Gmail "email@gmail.com", "password", "" _
        , "o> " _
        & vbNewLine & Sheets("Print").Range("D1")

Here is what I tried to do:

  sTo = Right(sTo, Len(sTo) - 1)        Gmail "Sheets("Home").Range("P16")", "Sheets("Home").Range("P18")", "" _
        , "o> " _
        & vbNewLine & Sheets("Print").Range("D1") _

I am not 100% certain, but I would assume the bottom code would be changed to this:

  sTo = Right(sTo, Len(sTo) - 1)        [COLOR=#ff0000][B]Gmail Sheets("Home").Range("P16"), Sheets("Home").Range("P18")[/B][/COLOR], "" _
        , "o> " _
        & vbNewLine & Sheets("Print").Range("D1") _

I think wrapping those parts in quotation marks would have made them a fixed string rather than a reference to a cell value.

 

[andrewb90]

I get Compile Error: Argument not Optional

 

[StephenCrump]

I get Compile Error: Argument not Optional

I assume that Gmail is Kenneth Hobson's function from this thread: http://www.mrexcel.com/forum/excel-questions/905304-help-cdo.html

It looks like you're passing fewer arguments than the six required:

Function Gmail(sendUsername As String, sendPassword As String, subject As String, _
    textBody As String, sendTo As String, sendFrom As String, _
    Optional sAttachment As String = "")