Sende e-mail fra VB 6

Er det ikke et eller andet med SignOn? Prøv at chekke hvad værdien af MAPISession1.SessionID er - jeg vil vædde på den er \"0\" (som er default).

YES den er 0, men hvad skal denne værdi være???
Jeg har ikke rigtigt arbejdet med denne disse controls før...

/Specialty...

Heller ikke jeg, men i Controls Reference står at man skal initialisere MAPISession ved at først tildele sin control en UserName og Password property, og dernæst kalde object.SignOn (her altså MAPIsession1.SignOn - herved bliver object.SessionID genereret. Prøv at bruge dine MSDN CD\'er og slå op under Signon og Newsession, og SessionID. Hvis du har hardcopy udgaven er det side 634-636
Jeg er bange for jeg ikke kan hjælpe meget mere da jeg som sagt ikke har prøvet disse ting. Men der er meget on-line hjælp.

Jeg kan stadig ikke finde ud af det... Er der ikke en der ligger inde med et eksempel der virker???

Hey der :O)
sidder og roder med noget SMS og skal bruge noget lignende, som resulterede jeg kom forbi det med signon og signoff.

Jeg ved ikke så meget om det endnu - men jeg kan se værdierne skal være : SignOn=1 og SignOff=2

Tubber

Her kommer koden til det SignOn :

Private Sub Form_Load()
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
End Sub

Private Sub Command1_Click()
MAPIMessages1.MsgIndex = -1
MAPIMessages1.Compose
MAPIMessages1.RecipDisplayName = \"Jens Lyn\"
MAPIMessages1.RecipAddress = \"12345678@sms.mobilix.dk\"
MAPIMessages1.AddressResolveUI = True
MAPIMessages1.MsgSubject = \"Emne\"
MAPIMessages1.MsgNoteText = \"Dette er en demo af at sende mail\'s fra VB6\"
MAPIMessages1.Send
End Sub

Den kommer bare med noget nyt, den mangler en afsender - det tilføjer jeg lige når jeg finder ud af det

Tubber

fandt det sidste nu virker din kode :O))

Private Sub Form_Load()
\'Her logger den på din primære mailserver
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
End Sub

Private Sub Command1_Click()
MAPIMessages1.MsgIndex = -1
MAPIMessages1.Compose
MAPIMessages1.RecipDisplayName = \"Jens Lyn\"
MAPIMessages1.RecipAddress = \"12345678@sms.mobilix.dk\"
MAPIMessages1.AddressResolveUI = True
\'Her magler der at blive resolvet på navnet.
MAPIMessages1.ResolveName
MAPIMessages1.MsgSubject = \"Emne\"
MAPIMessages1.MsgNoteText = \"Dette er en demo af at sende mail\'s fra VB6\"
MAPIMessages1.Send
End Sub

Private Sub Form_Unload(Cancel As Integer)
\'Her logger den ud når du lukker programmet
MAPISession1.SignOff
End Sub

Mvh
Tubber

Så vidt jeg kan se sender MAPIMessages1.RecipDisplayName = \"Jens Lyn\" til en der hedder jens lyn i din adresseliste

men er ikke sikker

Nu kommer den bare med en Login failed fejl. Hvordan retter jeg så den???

Har du husket at sætte MAPISession.UserName
og MAPISession.Password til et eller andet? Jeg skulle dog mene at man kan _sende_ uden at logge sig på, blot det er den rigtige SMTP server (er der ikke en property hvor du skal angive denne servers navn? - jeg har ikke mine reference manualer herhjemme).

Jeg har sendt både SMS og Mail med den som den er, jeg har været logget på min exchange server med outlook mens jeg gjorde det, så den sendte der fra så der kan jeg ikke lige hjælpe

Prøv denne:

Public Const MESSAGE_COMPOSE = 6
...

Public Sub SendPost()

    On Error GoTo fejl
    Dim tæller As Integer
    Dim Besked As String        \'Beskeden til brugeren.

    Modtager = frm01adb.txtnavn

    ModtagerAfPost = frm01adb.txtEmail
   
    \'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
   
    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:
    If Err = 32001 Then
        frm01adb.MAPISession1.SignOff
        Exit Sub
    End If
   
    Msg = \"Der er sket en fejl. Fejl nr. \"
    MsgBox Msg & Err & \". \", vbInformation, Err.Description
    If Err = 32003 Then Exit Sub
    frm01adb.MAPISession1.SignOff
End Sub

Jeg kan stadig ikke finde ud af det så jeg lukker det her spørgsmål...