NUNO SE her.

kig på www.vbsquare.com/internet/sendmail-demo/ der er et eksempel på et email program, jeg bruger selv en modificeret version af det :-)

Jeg laver det til efter nunos kode...

Hmm jeg tror det er i din smpt den går galt i:

Jeg prøvet med den:
http://services.msn.com/svcs/hotmail/httpmail.asp
Der fik jeg den fejl som du selv beskriver.

Men med min \"ejen\" (smpt.mail.dk) virker det fint?
Har du en anden smpt?

xzxzx >
husk lige at smide svaret her og ikke bare sende en fil til paxter, så kan vi alle få gavn af eksperten :-)

så har jeg en anden email i kan bruge cmp@tdcadsl.dk

server

pop3.mail.dk

cellaneous-> kan du lave din model om sådan at det er 2 felter og en knap og sådan at indholdet af det ene textfelt bliver emne og det andet textfelt bliver indhold i mailen???

Paxster

skal man da bruge smtp serveren???

Er det ikke kun pop3 serveren??

ellers er min smtp det samme som din xzxzxz->

smtp.mail.dk

ja du kan jo gøre feltet til \"vedhæftet fil\" og knappen der hører til (den med de tre prikker) visible=false, så er du nede på tre knapper, og slet du roligt \"about\" knappen så kommer du ned på to knapper.

Herefter kigger du på Private Sub Form_Load() og de felter som du ikke vil have brugerne skal pille ved laver du om fra \"\" til indholdet, eksempelvis txtServer = \"smtp.mail.dk\" og txtToAddress = \"paxster@hotmail.com\" og igen gemmer/skjuler du felterne ved i properties at vælge visible=false, så ser brugeren ikke ser felterne (kan gøres smartere ved at du sletter felterne istedetfor bare at gemme dem, og nøjes med at have værdierne i variabler, men nu forsøger jeg at gøre det super simpelt)

nu skulle du være nede på to knapper og to felter :-)

Jeg bruger selv min smtp server til programmet, da den jo kun sender post og ikke modtager er pop serverne ikke nødvendig.

det her er den tekstfil som viser frmDemo.frm efter du har pillet ved den (du kan bruge cut\'n\'paste og smide det her ind i en notesblok og gemme som frmDemo.frm istedetfor som tekstfil, så skulle det virke):


VERSION 5.00
Object = \"{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0\"; \"RICHTX32.OCX\"
Object = \"{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0\"; \"MSWINSCK.OCX\"
Begin VB.Form frmDemo
  Caption        =  \"Sendmail \"
  ClientHeight    =  4905
  ClientLeft      =  60
  ClientTop      =  345
  ClientWidth    =  5340
  BeginProperty Font
      Name            =  \"Tahoma\"
      Size            =  8.25
      Charset        =  0
      Weight          =  400
      Underline      =  0  \'False
      Italic          =  0  \'False
      Strikethrough  =  0  \'False
  EndProperty
  Icon            =  \"frmDemo.frx\":0000
  LinkTopic      =  \"Form1\"
  ScaleHeight    =  4905
  ScaleWidth      =  5340
  StartUpPosition =  2  \'CenterScreen
  Begin VB.CommandButton cmdSelect
      Caption        =  \"...\"
      Height          =  255
      Left            =  4920
      TabIndex        =  16
      Top            =  1680
      Visible        =  0  \'False
      Width          =  375
  End
  Begin RichTextLib.RichTextBox rtfAttach
      Height          =  495
      Left            =  480
      TabIndex        =  15
      Top            =  4320
      Visible        =  0  \'False
      Width          =  1695
      _ExtentX        =  2990
      _ExtentY        =  873
      _Version        =  393217
      Enabled        =  -1  \'True
      TextRTF        =  $\"frmDemo.frx\":0442
  End
  Begin VB.CommandButton cmdSend
      Caption        =  \"Send\"
      Default        =  -1  \'True
      Height          =  495
      Left            =  3000
      TabIndex        =  14
      Top            =  4320
      Width          =  855
  End
  Begin VB.CommandButton cmdClose
      Caption        =  \"Close\"
      Height          =  495
      Left            =  3960
      TabIndex        =  13
      Top            =  4320
      Width          =  975
  End
  Begin MSWinsockLib.Winsock Winsock1
      Left            =  5400
      Top            =  240
      _ExtentX        =  741
      _ExtentY        =  741
      _Version        =  327681
  End
  Begin VB.TextBox txtBody
      Height          =  1335
      Left            =  2040
      MultiLine      =  -1  \'True
      ScrollBars      =  3  \'Both
      TabIndex        =  11
      Text            =  \"frmDemo.frx\":0510
      Top            =  2160
      Width          =  2775
  End
  Begin VB.TextBox txtAttach
      Height          =  285
      Left            =  2040
      TabIndex        =  8
      Text            =  \"Text1\"
      Top            =  1680
      Visible        =  0  \'False
      Width          =  2775
  End
  Begin VB.TextBox txtSubject
      Height          =  285
      Left            =  2040
      TabIndex        =  6
      Text            =  \"Text1\"
      Top            =  1320
      Width          =  2775
  End
  Begin VB.TextBox txtToAddress
      Height          =  285
      Left            =  2040
      TabIndex        =  5
      Text            =  \"Text1\"
      Top            =  960
      Visible        =  0  \'False
      Width          =  2775
  End
  Begin VB.TextBox txtFromAddress
      Height          =  285
      Left            =  2040
      TabIndex        =  2
      Text            =  \"Text1\"
      Top            =  600
      Visible        =  0  \'False
      Width          =  2775
  End
  Begin VB.TextBox txtServer
      Height          =  285
      Left            =  2040
      TabIndex        =  0
      Text            =  \"Text1\"
      Top            =  240
      Visible        =  0  \'False
      Width          =  2775
  End
  Begin VB.TextBox txtOutput
      Height          =  495
      Left            =  480
      TabIndex        =  17
      Top            =  4320
      Visible        =  0  \'False
      Width          =  1695
  End
  Begin VB.Label lblStatus
      BorderStyle    =  1  \'Fixed Single
      Caption        =  \"Status:\"
      Height          =  255
      Left            =  480
      TabIndex        =  12
      Top            =  3840
      Width          =  4425
  End
  Begin VB.Label lblBody
      AutoSize        =  -1  \'True
      Caption        =  \"Message:\"
      Height          =  195
      Left            =  1080
      TabIndex        =  10
      Top            =  2040
      Width          =  690
  End
  Begin VB.Label lblAttach
      AutoSize        =  -1  \'True
      Caption        =  \"Attachment file name:\"
      Height          =  195
      Left            =  120
      TabIndex        =  9
      Top            =  1680
      Visible        =  0  \'False
      Width          =  1590
  End
  Begin VB.Label lblSubject
      AutoSize        =  -1  \'True
      Caption        =  \"Subject:\"
      Height          =  195
      Left            =  1080
      TabIndex        =  7
      Top            =  1320
      Width          =  600
  End
  Begin VB.Label lblToAddress
      AutoSize        =  -1  \'True
      Caption        =  \"To Address:\"
      Height          =  195
      Left            =  840
      TabIndex        =  4
      Top            =  960
      Visible        =  0  \'False
      Width          =  870
  End
  Begin VB.Label lblFrom
      AutoSize        =  -1  \'True
      Caption        =  \"From Address:\"
      Height          =  195
      Left            =  720
      TabIndex        =  3
      Top            =  600
      Visible        =  0  \'False
      Width          =  1050
  End
  Begin VB.Label lblServer
      AutoSize        =  -1  \'True
      Caption        =  \"POP Server:\"
      Height          =  195
      Left            =  840
      TabIndex        =  1
      Top            =  240
      Visible        =  0  \'False
      Width          =  885
  End
End
Attribute VB_Name = \"frmDemo\"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
\'----------------------------------------
\'- Name: Sam Huggill
\'- Email: sam@vbsquare.com
\'- Web: http;//www.vbsuare.com/
\'- Company: Lighthouse Internet Solutions
\'- Date/Time: 05/09/99 17:15:13
\'----------------------------------------
\'- Notes:  Originally written by standby@dellete.com
\'          but modified by Sam Huggill
\'
\'          Mainly cleaned up the code for easier usage
\'----------------------------------------

Option Explicit

Private Sub cmdAbout_Click()
    frmAbout.Show vbModal
End Sub

Private Sub cmdClose_Click()
    Unload Me
End Sub

Private Sub cmdSelect_Click()
       
    cmdDialog.ShowOpen
    txtAttach = cmdDialog.filename
   
End Sub

Private Sub cmdSend_Click()
   
    cmdSend.Enabled = False
   
    If ValidateEntry = False Then MsgBox \"Either the server name or to address were left empty.\", vbCritical + vbOKOnly, Me.Caption: cmdSend.Enabled = True: Exit Sub
   
    If txtAttach.Text <> \"\" Then
        lblStatus = \"Encoding file attachment\"
        Base64EncodeFile txtAttach.Text, rtfAttach, txtOutput
    End If
   
    lblStatus = \"Connecting to POP Server\"
    ConnectToServer txtServer.Text, Winsock1
   
End Sub

Private Sub Form_Load()
   
    txtAttach = \"\"
    txtBody = \"\"
    txtFromAddress = \"paxster@hotmail.com\"
    txtServer = \"smtp.mail.dk\"
    txtSubject = \"\"
    txtToAddress = \"cmp@tdcadsl.dk\"
   
   
End Sub

Private Sub Winsock1_Connect()
   
    lblStatus = \"Connected to POP Server\"
   
    Wait 0.5
   
    lblStatus = \"Sending mail\"
   
    If txtAttach.Text = \"\" Then
   
        SendMail txtFromAddress, txtToAddress, txtSubject, txtBody, Winsock1
   
    Else
   
        SendMail txtFromAddress, txtToAddress, txtSubject, txtBody, Winsock1, txtAttach, txtOutput
   
    End If
   
    lblStatus = \"Mail sent\"
   
    cmdSend.Enabled = True
   
    lblStatus = \"Status:\"
   
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
   
    MsgBox \"Error Number: \" & Number & vbCrLf & Description & vbCrLf & Source, vbCritical + vbOKOnly, Me.Caption
   
End Sub

Private Function ValidateEntry() As Boolean
   
    ValidateEntry = True
   
    If txtServer.Text = \"\" Or txtToAddress = \"\" Then ValidateEntry = False
   
End Function

Jeg fik selv fikset det da jeg kiggede lidt på den kode som NUNO skrev i spg http://www.eksperten.dk/spm/97472

Så jeg kan desværre ikke give jer de 250 point da det ikke var jer der løste problemet, men i kan få 50 hver (cellaneous og xzxzxz)

svar lige igen begge 2. ligemeget hvad der står.

Jeg laver et nyt spg der kommer til at hedde point til xzxzxz og cellanous!

svar på det.

det var da godt du fik en løsning :-)