hej,

jag undrar om någon har ett bra exempel på hur man i vb skriver ett program som kan skicka ett mail innehållandes ett attachment via en smtp server.

tacksam för svar,
Andreas

ett sätt är att använda sig av MAPI-ocx:erna. Komponenten heter msmapi32.ocx. Kolla in kodexempel på msdn

'Sätt References till Microsoft ActiveX Data Objects 2.5 Library
'Sätt References till Microsoft CDO for Windows 2000 Library
Public Sub SENDEMAIL(ByVal sServer As String, _
ByVal sToMailbox As String, _
ByVal sToFullname As String, _
ByVal sFromMailbox As String, _
ByVal sFromFullname As String, _
ByVal sSubject As String, _
ByVal sMessage As String)

Dim iConf As New CDO.Configuration
Dim Flds As ADODB.Fields
Dim iMsg As New CDO.Message

Set Flds = iConf.Fields

' Set the configuration for Network Send
Flds(cdoSendUsingMethod) = cdoSendUsingPort '2
Flds(cdoSMTPServer) = sServer 'Din server host
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPConnectionTimeout) = 30
Flds.Update

Set iMsg.Configuration = iConf

With iMsg
.From = sFromFullname & "<" & sFromMailbox & ">"
.To = sToMailbox 'Ex:Test@hotmail.com
.Subject = sSubject
' .AddAttachment ("C:\TEST.TXT")
'.ReplyTo = "Test@hotmail.com"
.TextBody = sMessage
On Error Resume Next
.Send
End With

Set iConf = Nothing
Set Flds = Nothing
Set iMsg = Nothing
End Sub
''Här får du ändra till dina inställningar
Private Sub Command1_Click()
Call SENDEMAIL("Din server", "Din mail adress", "Ditt namn", "Mottagarens mailadress", "Mottagarens Namn", "Subject", "Skriv din text")
End Sub


Prova denna så kan du skicka mail enkelt !!!