Sendobject via outlokk fungerer kun en gang

I cant see you rcode but you must make sure your cleaning up after you! Close the Outlook object etc.

Dim OlApp As Outlook.Application

Set OlApp = CreateObject("Outlook.application")
'Use Outlook
Set OlApp = Nothing

Hej Terry, jeg har her wslutningen af koden,det første laver bare variblerne og lign.:

DoCmd.SendObject acSendNoObject, , , Modtager, , , Subject, tekst, 0
Exit Sub
fejl_ved_afsendning_mail:
MsgBox "Fejlen er ikke blevet meldt"
DoCmd.CancelEvent

Jeg forstår ikke helt dit svar

OK! I though you were automating Outlook,

Kan du vise en bedre metode ved "automating outlokk"
eller kan det løses i min kode

You need a reference to Outlook (tools + references) in the menu while in code view

Private Sub Command0_Click()
Dim OutL As Outlook.Application
Dim Item As MailItem
Dim Receiver As Recipient

    Set OutL = New Outlook.Application

    Set Item = OutL.CreateItem(olMailItem)
   
    With Item
       
        .Subject = "The subject"
        .Body = "This is the body of the mail - http://www.eksperten.dk"
        .FlagStatus = olFlagMarked
        '.Attachments.Add "Any attachments"
       
        Set Receiver = .Recipients.Add("YourMailAddress")
       
        If Not Receiver.Resolve Then
            .Display
        Else
            .Send
        End If
    End With
   
    Set Item = Nothing
    Set OutL = Nothing

End Sub

Det lyder fint, men virker det også med outlook express, det er det eneste der er installeret på serveren.
Ellers skal det være Lotus Notes, men Det har jeg opgivet da jeg ikke kunne få det til at køre

No I dont think it works with Express.

If your using different mailing systems then I thinbk you should keep to SendObject.

I cant see anything wrong with your code either and when you say that it works at home then I can only assume that its NOT your code but the setup of for example Express