Form to email to via smtp (hotmail).

[Moss100]

Hello I want to create a form to email text and attachements via hotmail.

I have had some success with a sample form, but it seems unrelaible.

Can anyone give me code or a sample for to help me with this?

many thanks mark

 

[PHV]

I'd use CDO:
thread705-1369407

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Moss100]

Hello - I have got the code below to work - but i would like to add an attachement (the attachement path is storred in a textbox called txtattachement on the form)

How would I add this??? Thank you Mark


Private Sub Command0_DblClick(Cancel As Integer)
Dim iMsg As Object
Dim iConf As Object
Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("

http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")

= 1
.Item("

http://schemas.microsoft.com/cdo/configuration/sendusername")

= "test50@hotmail.com"
.Item("

http://schemas.microsoft.com/cdo/configuration/sendpassword")

= "testpassword"
.Item("

http://schemas.microsoft.com/cdo/configuration/smtpserver")

= "smtp.live.com"
.Item("

http://schemas.microsoft.com/cdo/configuration/sendusing")

= 2
.Item("

http://schemas.microsoft.com/cdo/configuration/smtpserverport")

= 25 'OR 587
'Use SSL for the connection (False or True)
.Item("

http://schemas.microsoft.com/cdo/configuration/smtpusessl")

= True
.Update
End With

With iMsg
Set .Configuration = iConf
.To = Me.txtTo
.CC = Me.Txtcc
.BCC = Me.Txtbcc
.From = "test50@hotmail.com"
.Subject = Me.TxtSubject
.TextBody = Me.TxtMessage


.Send
End With
End Sub

 

[PHV]

Use the iMsg.AddAttachment method.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Moss100]

OK so i have added that in below - thank you. It works fine with a text file, but with a jpg i get the error message - 'the transport lost its connection with the server'.

This was the problem i was coming across with the original form. Any ideas??



Private Sub Command0_DblClick(Cancel As Integer)
Dim iMsg As Object
Dim iConf As Object
Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("

http://schemas.microsoft.com/cdo/configuration/smt...")

= 1
.Item("

http://schemas.microsoft.com/cdo/configuration/sen...")

= "test50@hotmail.com"
.Item("

http://schemas.microsoft.com/cdo/configuration/sen...")

= "testpassword"
.Item("

http://schemas.microsoft.com/cdo/configuration/smt...")

= "smtp.live.com"
.Item("

http://schemas.microsoft.com/cdo/configuration/sen...")

= 2
.Item("

http://schemas.microsoft.com/cdo/configuration/smt...")

= 25 'OR 587
'Use SSL for the connection (False or True)
.Item("

http://schemas.microsoft.com/cdo/configuration/smt...")

= True
.Update
End With

With iMsg
Set .Configuration = iConf
.To = Me.txtTo
.CC = Me.Txtcc
.BCC = Me.Txtbcc
.From = "test50@hotmail.com"
.Subject = Me.TxtSubject
.TextBody = Me.TxtMessage
.AddAttachment "c:\amy.jpg"

.Send
End With
End Sub

 

[Moss100]

The problem seems to only occur with attachments.

Attachments often cause a error message (even when they are hard coded in - i.e c:\image1.jpg)

Also attachements appear as only only a grey icon on the iphone (receining thorugh a hotmail account) - when clicked the screen then just leads to a grey screen.

So really it seems to be attachments (esp photos) that are causing the problem.

Thanks Mark