Uploading Pic to to Gmail server - (Moved)

[gate]

I have been tasked to write a script, that could upload pictures directly, from a pc to Gmail server using SMTP port, I tried creating a script to help forward text mail, I didn't get error code nor did it work. I'm still stuck, i need ideas on how to create the script to upload and send text

final.au3

[gate]

expandcollapse popup

#include <Inet.au3>
#include <MsgBoxConstants.au3>



Func newf()
    TCPStartup()

    Local $s_ipaddress = "216.58.223.197"
    Local $s_port = "465"

    Local $i_socket, $s_error

    Local $i_socket = TCPConnect($s_ipaddress, $s_port)

    If @error Then
        $i_error = @error
         MsgBox(BitOR($MB_SYSTEMMODAL, $MB_ICONHAND), "", "Could not connect, Error code: " & $s_error)
    Else
         MsgBox(16, "connected", "connected to gmail server", 20)

    EndIf
    TCPCloseSocket($i_socket)
EndFunc

Func smtpp()
    Local $smtp_server = "smtp.gmail.com"
    Local $s_FromName  = "seun oyebowale"
    Local $from_address = "oyebowalemuiz@gmail.com"
    Local $to_address = "gatescode214@gmail.com"
    Local $subject = "test"
    Local $s_password = "OluwaseunOyebowale@25"
    Local $ssl = 0
    Local $s_body [2]
    $s_body[0] = "i love new york"
    $s_body[1] = "this just shows it worked"

    Local $iResponse = _INetSmtpMail($smtp_server, $s_FromName, $from_address, $to_address, $subject, $s_body, $s_password, $ssl)

    Local $iErr = @error
If $iResponse = 1 Then
    MsgBox($MB_SYSTEMMODAL, "Success!", "Mail sent")
Else
    MsgBox($MB_SYSTEMMODAL, "Error!", "Mail failed with error code " & $iErr)
EndIf
EndFunc

 

Edited March 13, 2020 by Melba23
Added code tags

[Melba23]

Moved to the appropriate forum, as the Developer General Discussion forum very clearly states:

Quote

General development and scripting discussions. If it's super geeky and you don't know where to put it - it's probably here.

---

Do not create AutoIt-related topics here, use the AutoIt General Help and Support or AutoIt Technical Discussion forums.

Moderation Team

[Jos]

search the forum

Jos

[gate]

thanks, jos would try that