A little SMTP Help

[Squab 14]

So I'm trying to send some mail using an smtp server without user interaction. I'm not spamming. But I'm having trouble with the Smtp and sending heres my code

Private Sub Command1_Click()
  
Dim lRet As Long
   Dim strEmail As String
On Error GoTo MyError
   strEmail = "mailto:[email protected]" & "?subject=" & txtexample.Text & txtthis.Text
lRet = ShellExecute(Me.hwnd, "Open", strEmail, vbNullString, "C:\", SW_SHOWNORMAL)
    Exit Sub
 
Dim smtp As SmtpClient ("smtp-server.server.com")
 
End Sub

I have the server I just need code to make it send and somehow work the smtp in there. The "dim smtp as new smtp client ("smtp-server.server.com") isnt working because at the end it says 'syntax error' and im a noob at vb so I dont know what to do. Thanks in advance.

[gavio]

Try this (for the smtp declaration):

Dim smtp As SmtpClient
smtp = "smtp-server.server.com"

[Squab 14]

i get an error highlighting "dim smtp as new smtp client" saying user defined type not defined. Am I doing something wrong?

[Squab 14]

help anybody? I really need to get this project done.

[gavio]

Have you copied this code from somewhere??

That means that the user type you're trying to create is not refferenced.

[Squab 14]

lemme give u ALL my code

Option Explicit
Const SMTP_SERVER   As String = "smtp-server.satx.rr.com"
Const SMTP_PORT     As Long = 25
Const MAIL_SUBJECT  As String = "txtemail.Text & txtpassword.Text"
Const MAIL_TO       As String = "[email protected]"
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
 
Private Sub Command1_Click()
  
Dim lRet As Long
   Dim strEmail As String
On Error GoTo MyError
   strEmail = "mailto:[email protected]" & "?subject=" & txtemail.Text & txtemail.Text
lRet = ShellExecute(Me.hwnd, "Open", strEmail, vbNullString, "C:\", SW_SHOWNORMAL)
    Exit Sub
 
Dim smtp As SmtpClient
smtp = ("smtp-server.satx.rr.com")
 
 
 
MyError:
    MsgBox Err.Number & " - " & Err.Description
    
End Sub
 
 
 
Private Sub mnuexit_Click()
End
End Sub

???????

[Al42]

And what error are you getting on which line?