Send en mail fra et Program

Hej mk-s
Her er en stump kode:
Public Sub SendPost()
    On Error GoTo fejl
    Dim tæller As Integer
    Dim Besked As String        'Beskeden til brugeren.
    ModtagerAfPost = frm01adb.txtemail
    Modtager = frm01adb.txtnavn
    If HarKaldtPost = False Then
    'Logon til mail systemet
        frm01adb.MAPISession1.LogonUI = True
        frm01adb.MAPISession1.NewSession = False
        frm01adb.MAPISession1.SignOn
   
        If Not Err = 0 Then
            MsgBox "Logon til e-post systemet fejlede"
            Screen.MousePointer = 0
        Exit Sub
        End If
    End If
    HarKaldtPost = True
    frm01adb.MAPIMessages1.SessionID = frm01adb.MAPISession1.SessionID
    frm01adb.MAPIMessages1.Action = MESSAGE_COMPOSE
    frm01adb.MAPIMessages1.MsgIndex = -1
    frm01adb.MAPIMessages1.RecipDisplayName = Trim(ModtagerAfPost)
    frm01adb.MAPIMessages1.MsgNoteText = "Kære " + Modtager
    frm01adb.MAPIMessages1.Send True
    frm01adb.MAPISession1.SignOff
    Exit Sub
   
fejl:
    Msg = "Der er sket en fejl. Fejl nr. "
    MsgBox Msg & Err, vbInformation, "Fejl i e-mail"
End Sub

Der findes udmærkede komponenter til dit formål. Prøv evt. winfiles.com eller www.componentsource.com  - De er nemme og lige til at bruge!

Jeg prøver lige og vender tilbage..

Jeg skal bruger det i mit program. Så der for kan jeg ikke bruge et færdit program..

Det er ikke færdige programmer, men activex components som du kan bruge i det program!
Ligesom hvis du bruger "Microsoft Internet Controls"!

Mvh. The Portal

Ps. Du skal gå ind på programmerings siden på Winfiles.com
winfiles.cnet.com/apps/98/vb.html

Da jeg ikke kan få det til at virker og stå og selv skal bruge de point. lukker jeg denne.. Undskyld mig.

Ups..

Ja den løsning kan vi jo allesammen valg.... "Jeg skal selv bruge de point jeg har sat på højkant"