[Guide] Sending Email and sending attachments

[Murdok]

Thought i would show you how to send emails using visual Basic

i know theres a guide for vb.net but not seen one for vb6

    On Error Resume Next
    
    Set objnet = CreateObject("WScript.NetWork")
    
    Set oSMTPSession = CreateObject("OSSMTP.SMTPSession")

    With oSMTPSession
     .MailFrom = ""
     .SendTo = ""
     .Server = ""
     .Port = 25
     .MessageSubject = ""
     .MessageText = ""
     .SendEmail
    End With
    Set oSMTPSession = Nothing

.MailFrom = "" 'can be a real email address or just anything, also can = a textbox for variable or any object which can hold text
.SendTo = "" 'Has to be real ofcourse
.Server = "" 'SMTP server of who your sending it too
.Port = 25 'Port normaly 25
.MessageSubject = "" 'Subject of Email
.MessageText = "" 'Email text

all these can = text1.text for example


now for adding attackments

General

Dim filename As String
Dim intCounter As Integer

command button to Send

    On Error Resume Next
    
    Set objnet = CreateObject("WScript.NetWork")
    
    Set oSMTPSession = CreateObject("OSSMTP.SMTPSession")

    With oSMTPSession
     .MailFrom = txtFrom.Text
     .SendTo = txtEmail.Text
     .Server = txtServer.Text
     .Port = 25
     .MessageSubject = txtSubject.Text
     .MessageText = txtText.Text

 If intCounter >= "1" Then
 Else
  GoTo send
 End If
          
     'adding attachment
     Set oAttachment = CreateObject("OSSMTP.Attachment")
     oAttachment.FilePath = filename
     oAttachment.AttachmentName = txtAname.Text
     oAttachment.ContentType = "application/xml"
     oAttachment.ContentTransferEncoding = 1
     .Attachments.Add oAttachment
send:
     .SendEmail
    End With
    Set oSMTPSession = Nothing

The if statement is there for when an attachment is not there becuase without it, it will only send if you add an attachment


Set oAttachment = CreateObject("OSSMTP.Attachment")
oAttachment.FilePath = filename 'location o0f attachment
oAttachment.AttachmentName = "" 'name of attachment
oAttachment.ContentType = "application/xml"
oAttachment.ContentTransferEncoding = 1
.Attachments.Add oAttachment

for adding an attachment i would add a commondialog1 which can be done by

Project -> components -> Microsoft common dialog control 6.0

then adding it to the form

then

Command button for adding attachment

commondialog1.showopen
filename = CommonDialog1.filename

you might want to add a if statment to check if filename = ""

also in that command button you need

intcounter = intcounter + 1

Here is a simple program i made

Download:

MEGAUPLOAD - The leading online storage and file delivery service

Virus Scan:

Virustotal. MD5: a29cc036331c6eff9b5fa75f9ff02bb1

[Zeroi9]

name "oSMTPSession" is not declared.

Please help!

[Murdok]

Try changing where it says

oSMTPSession

to something like

SMTPSession

see if that helps

[Zeroi9]

Try changing where it says

oSMTPSession

to something like

SMTPSession

see if that helps

Same :'[ Wil give 2x+Rep to you and write your name in credz if you fix this.

[Murdok]

can i have a look at the code you have atm for the email part?

and are you using vb6?

[Zeroi9]

can i have a look at the code you have atm for the email part?

and are you using vb6?

VB8 should LOVE if you cold fix the code for VB 8 !!!
and the code is copied from you ,exept everthing is directed to Textboxes.

[Murdok]

Here this should work

Dim oMsg As System.Web.Mail.MailMessage = New System.Web.Mail.MailMessage() 

oMsg.From = "" 
oMsg.To = "" 
oMsg.Subject = "" 
oMsg.Body = "" 
Dim oAttch As MailAttachment = New MailAttachment("")  
oMsg.Attachments.Add(oAttch) 
SmtpMail.Send(oMsg)

[Zeroi9]

Here this should work

Dim oMsg As System.Web.Mail.MailMessage = New System.Web.Mail.MailMessage() 

oMsg.From = "" 
oMsg.To = "" 
oMsg.Subject = "" 
oMsg.Body = "" 
Dim oAttch As MailAttachment = New MailAttachment("")  
oMsg.Attachments.Add(oAttch) 
SmtpMail.Send(oMsg)

Did not work ='[
getting that isnt valid

[Neth'zul]

Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("username", "password")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
mail.To.Add("your_target@gmail.com")
mail.From = New MailAddress("username@gmail.com")
mail.Subject = "My E-Mail from my Visual Basic Program"
mail.Body = " Hello. Do you think this is nice? and btw. EmiloZ helped me to make it "
SmtpServer.Send(mail)



This is from Emiloz's post, give rep to him. I think this is VB8
EDIT: Also dont forget to do this
"Imports System.Net.Mail"

[Zurkei]

Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("username", "password")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
mail.To.Add("your_target@gmail.com")
mail.From = New MailAddress("username@gmail.com")
mail.Subject = "My E-Mail from my Visual Basic Program"
mail.Body = " Hello. Do you think this is nice? and btw. EmiloZ helped me to make it "
SmtpServer.Send(mail)



This is from Emiloz's post, give rep to him. I think this is VB8
EDIT: Also dont forget to do this
"Imports System.Net.Mail"

He used a similar code but not the same.

[Neth'zul]

Yeah, but you HAVE to remember to Import System.Net.Mail, it is very important or it will not work!

[Zurkei]

Yeah, but you HAVE to remember to Import System.Net.Mail, it is very important or it will not work!

I understand that but I just wanted to state that it was not the same code and only looked similar so there needed to be no credits given to him.

[Neth'zul]

Yea, then I guess my only point is he forgot to import lol XD

[Zeroi9]

Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("username", "password")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
mail.To.Add("your_target@gmail.com")
mail.From = New MailAddress("username@gmail.com")
mail.Subject = "My E-Mail from my Visual Basic Program"
mail.Body = " Hello. Do you think this is nice? and btw. EmiloZ helped me to make it "
SmtpServer.Send(mail)



This is from Emiloz's post, give rep to him. I think this is VB8
EDIT: Also dont forget to do this
"Imports System.Net.Mail"

Uhm I knew that already, its easy. Gratz alot on that "sarcasm" I need FakeMaielr.