vb6 - send email with attachment using smtp

[coolcurrent4u]

This little project sends email with attachment, using ssl if required.
Some part of the code is not mine, but i made this for most people who still find is difficult to send email in vb6, so they can use as a template. it is simple and straight forward




SendEmail.zip

[DanielT]

Tested and working! thanks man!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[sfaham]

Not working with me
this message

[sfaham]

i am soory
this message "the transport failed to connect the server"

[coolcurrent4u]

hello,
welcome to the forums, i think you should check your
logon on credentials,
your Internet connection.

[sfaham]

thank you

but i have connection with internet

[coolcurrent4u]

which email provider settings are you using

Server ?
port ?
ssl ?

[sfaham]

mailman.SmtpHost = smtp.gmail.com
mailman.SmtpPort = 465
mailman.SMTPSSL = 1

[coolcurrent4u]

check here

[VBFnewcomer]

could you post the settings reqd..

[sfaham]

Thank you very much for your support and I will give you the experience and the result

[sfaham]

many thanks for great support it is working now

[sadell]

Hi everybody!
this project works for gmail, but it doesn't works for microsoftonline smtp server.

smtp server: smtp.mail.emea.microsoftonline.com
port: 587
with SSL

The error: -2147220973

The user and pwd are correct. I cant use them for configure client.

If I can't do it with CDO.Message, how can do it?

I'm hopeless.

Could anybody help me, please?

Thanks in advance.

Sonia.

[coolcurrent4u]

{please delete}

[coolcurrent4u]

what is this error, any message with it.

[sadell]

The error is: -2147220973 - Transport error in server conection.

I think, CDO doesn't support SSL/TLS authentication.

[coolcurrent4u]

it does support ssl, this app was tested with gmail before posting. make sure that you enable pop access in your email account online first before using the app, and also make sure that you password is correct.

[malek2610]

thank you so much for the code

it works good when I run it on VB, but when I try to make an exe file it doesn't work, I get this messege

Compile Error :

Sub or Function not defined

Can you help me please !!

[PowerProg]

Thanks
It's very good

[coolcurrent4u]

@malek2610 i did get that error when i compiled, shich sub or function did it complain about?

[malek2610]

@malek2610 i did get that error when i compiled, shich sub or function did it complain about?

I've problem with "txtInfo" in :

Private Sub txtInfo_GotFocus(Index As Integer)
    txtInfo(Index).SelStart = 0
    txtInfo(Index).SelLength = Len(txtInfo(Index))
End Sub

[Hack]

Do you have a control array of textboxes called txtInfo?

[coolcurrent4u]

Hello, Please delete this code, its ambiguous

Private Sub txtInfo_GotFocus(Index As Integer)
    txtInfo(Index).SelStart = 0
    txtInfo(Index).SelLength = Len(txtInfo(Index))
End Sub

[malek2610]

Hello, Please delete this code, its ambiguous

Private Sub txtInfo_GotFocus(Index As Integer)
    txtInfo(Index).SelStart = 0
    txtInfo(Index).SelLength = Len(txtInfo(Index))
End Sub

Thank you so much, now it works without any problem

[adie362]

you have done an outstanding job, thanks

please could you let me know how to send 3 x pdf atachments from this e-mailer

kind regards

Adie

[jmsrickland]

I don't know how the rest of you got it to work but I sure don't have any luck with it. I just can't get it to work when using the server smtp.live.com. The port is at 465, Req SSL is checked, username and password are correct and my from email is correct. I always get the same error The transport failed to connect to the server

[brss]

Need Help,
I have below code i want to record in each sheet only 50 data. Can anyone help me.

Private Sub print()


Dim cnn As New ADODB.Connection
Dim xlApp1 As New Excel.Application
Dim xlwk As New Excel.Workbook
Dim xlSheet1 As New Excel.Worksheet
Dim xlSheet2 As New Excel.Worksheet
Dim ctr As Long
Dim SQL As String
Dim rs

cnn.ConnectionTimeout = 15
cnn.CommandTimeout = 30

g_strDBName = dbPath & "\BarqCell Data\DSS.mdb"
'creates a new databse conection and sets the conection string
Set cnn = New ADODB.Connection
Constring = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & g_strDBName
cnn.ConnectionString = Constring
'Opens the database conection

cnn.Open

If DTPicker1.Value = "" Then
MsgBox "please select date"
Exit Sub
End If

SQL = "select number from tblWarehouse_Received where date =#" & DTPicker1.Value & "#"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open SQL, cnn, adOpenDynamic, adLockOptimistic

xlApp1.Interactive = True

Set xlwk = xlApp1.Workbooks.Open(App.Path & "\Asia.xls")
Set xlSheet1 = xlwk.Worksheets("Asia1")
xlSheet1.Select
Set xlSheet2 = xlwk.Worksheets("Sheet2")
xlSheet2.Select
xlSheet1.Range("B6").Value = Date
xlSheet2.Range("B6").Value = Date
ctr = 9 ' start data after headings

i think i made wrong in below code could you please fix it to me. so i can record only 50data in each sheet.
Do While Not rs.EOF
ctr = ctr + 1
If ctr <= 50 Then xlSheet1.Range("B" & Trim(Str(ctr))).Value = rs("number")
If ctr > 50 And ctr <= 100 Then xlSheet2.Range("B" & Trim(Str(ctr))).Value = rs("number")
rs.MoveNext

Loop


xlApp1.Visible = True

'xlwk.Save
'xlApp.Quit

'handleError:
' If err.Number <> 0 Then
' MsgBox "Error #: " & err.Number & vbCrLf & err.Description, vbCritical, "Critical Error"
' End If

End Sub

[coolcurrent4u]

pls post you question the the vb6 general forum, not here

[brss]

I already did. Sorry for confusing. I did post it here by mistake. Thank you for understand and your time to replay me.

[JackSun]

I am running VB6 on windows 7 ultimate with office 2010
I run the program and it gives an error:

The message could not be sent to the SMTP server. The transport error code was 0x80040217. The server response was not available

Can anybody help

[coolcurrent4u]

check you connection , make sure your gmail password is correct, try it in another computer, then post the result here

[MBen]

Works OK for Yahoo and Gmail. Errors appear if use Hotmail or Exchange. Machine used: PC with Windows 7 Enterprise, Office 2010 Pro installed and exchange used for other stuff.

[lbusekros@gmx.de]

It works!!!!

This little project sends email with attachment, using ssl if required.
Some part of the code is not mine, but i made this for most people who still find is difficult to send email in vb6, so they can use as a template. it is simple and straight forward

[22012782]

check you connection , make sure your gmail password is correct, try it in another computer, then post the result here

Have the same problem here... When i try using smtp.gmail.com, it works. But when i try using my smtp server, it failed

I've tried using the same smtp setting in my microsoft outlook, and it works. So that mean there is no problem with my setting and smpt connection

note : I use Webmail smtp

Need help please...

thanks before