A little SMTP Help

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

VB 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.

Try this (for the smtp declaration):

VB Code:

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

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

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

Have you copied this code from somewhere?? :confused:

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

lemme give u ALL my code

VB 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

???????

And what error are you getting on which line?