MAIL.AddAttachment (Sheets("MAIL").Range("N17").Text) <---- Why is it not working?

Hello everyone,

Just trying to send an email (gmail) using VBA CDO in excel and my problem is in the title.

I'm pretty sure that everyone gets it. I want my mail attachment to be selected in a specific cell (that is doing a Vlookup on a customer name) in one of my sheets:

MAIL.AddAttachment (Sheets("MAIL").Range("N17").Text)

Here is the code:

Private Sub btnSendEmail_Click()
    
    Dim MAIL As New Message
    Dim config As Configuration
    Set config = MAIL.Configuration
    
    config(cdoSendUsingMethod) = cdoSendUsingPort
    config(cdoSMTPServer) = "smtp.gmail.com"
    config(cdoSMTPServerPort) = 25
    config(cdoSMTPAuthenticate) = cdoBasic
    config(cdoSMTPUseSSL) = True
    config(cdoSendUserName) = "email@email.com"
    config(cdoSendPassword) = "Password"
    config.Fields.Update
    
    Call createJpg("MAIL", "A5:I56", "image")
    tempfilepath = Environ$("temp") & "\"
        MAIL.AddAttachment tempfilepath & "image.jpg", olbyvalue, 1
            
    MAIL.To = Range("N18").Text
    MAIL.CC = Range("N19").Text
    MAIL.From = config(cdoSendUserName)
    MAIL.Subject = "text" + Range("E21").Text + " text // " + Range("N8").Text
    MAIL.HTMLBody = "<span LANG=FR><p class=style2 p align=justify p style='width='850' height='1500'><span LANG=FR><font FACE=Calibri SIZE=3>" & _
    "<p>Hello,</p>"
    
    MAIL.AddAttachment (Sheets("MAIL").Range("N17").Text)
    
    On Error Resume Next
    
    If MsgBox("Do you really want to send this email?", vbYesNo) = vbNo Then Exit Sub
    
    MAIL.Send
    
    If Err.Number <> 0 Then
        MsgBox Err.Description, vbCritical, "There was an error"
        Exit Sub
        
    End If
    
    MsgBox "your email has been sent", vbInformation, "sent"    
End Sub



Sub createJpg(Namesheet As String, nameRange As String, nameFile As String)
    ThisWorkbook.Activate
    Worksheets(Namesheet).Activate
    Set Plage = ThisWorkbook.Worksheets(Namesheet).Range(nameRange)
    Plage.CopyPicture
    With ThisWorkbook.Worksheets(Namesheet).ChartObjects.Add(Plage.Left, Plage.Top, Plage.Width, Plage.Height)
        .Activate
        .Chart.Paste
        .Chart.Export Environ$("temp") & "\" & nameFile & ".jpg", "JPG"
    End With
    Worksheets(Namesheet).ChartObjects(Worksheets(Namesheet).ChartObjects.Count).Delete
Set Plage = Nothing
End Sub

Hello VBAzr,

Have you verified that the contents of Sheets("MAIL").Range("N17").Text is a fully qualified file path like "C:\Users\Owner\My file.txt" ?

Hello VBAzr,

Do receive any error messages?

Add check:

If dir(Sheets("MAIL").Range("N17").Text, 16) = "" Then
msgbox "Invalid Attachment!", vbcritical
exit sub
End if

And try use: Sheets("MAIL").Range("N17").Value

Try instead the disk name to use IP of the disk: "\\192.168.1.1\Owner\My file.txt"

Hello VBAzr,

Try changing the SMTP port numberfrom 25 to 445.

    config(cdoSMTPServerPort) = 445