CDO for NT

Du skal installere komponentet CDONTS.dll. Du kan ffinde både komponentet og instruktoner om hvordan det installeres her. http://crt.doce.lsu.edu/CRT-HTML-Class/Lesson29a.html

VH CK

Mange tak, den skulle nu være installeret.

Men hvor finder jeg den i referencer i VB?
Eller hvad skal jeg gøre?
VB kan stadig ikke genkende CDONTS.NewMail.

Så skal du op i menuen project og vælge references. Herinde der sætter du kryds under "Microsoft CDO for NTS"

VH CK

Takker så langt så godt.
Jeg får nu en error 429.
Active x component cannot create object.
Noget du kender svaret på?

Hvordan ser din kode ud?

Sub SendEmailHTML()
    Dim strSendTo As String
    Dim objSendMail As CDONTS.NewMail
    Dim i As Integer
    On Error GoTo ErrorHandler
    'Do not cause the user a major error, just log the error and keep going
   
'    If SendTo = "" Then Exit Sub

    Set objSendMail = New CDONTS.NewMail

    With objSendMail
        On Error Resume Next
        .From = "xxx.dk"
        If CC <> "" Then
            .CC = CC
        End If

        On Error GoTo ErrorHandler
        .To = "xxx.dk"
        .Subject = "XXX"
        .Body = <img src="xxx.gif" align="left" width="145" height="183">

        .MailFormat = CdoMailFormats.CdoMailFormatMime
        .BodyFormat = CdoBodyFormats.CdoBodyFormatHTML
   
        AttachmentPath = Trim$(AttachmentPath)
        If AttachmentPath <> "" Then
            If Right$(AttachmentPath, 1) <> "\" Then
                AttachmentPath = AttachmentPath & "\"
            End If
            .AttachFile (AttachmentPath & Attachment)
        End If
        .Send
    End With
   
ExitMe:
    Set objSendMail = Nothing
    Exit Sub

ErrorHandler:
    'Send error back
    Err.Raise Err.Number, Err.Source, Err.Description

End Sub
Private Sub Command1_Click()
    Data1.Recordset.MoveFirst
    Do While Data1.Recordset.EOF = False
        SendEmailHTML
        Data1.Recordset.MoveNext
    Loop
End Sub

Den brokker sig også over den måde jeg skriver html koden på.
Skal jeg bruge nogle flere anførselstegn eller hvad?

Hvad angår HTML koden så skal du skrive

.Body = "<img src='xxx.gif' align='left' width='145' height='183'>"

Men hvor melder den ellers fejl henne? (skriv en linie hvor det går galt)

VH CK

Det er når jeg kører programmet.
JEg prøver lige at debugge igen, måske jeg kan lokalisere det bedere.

Sker først når den kommer til linien .send, så vidt jeg kan se.
Skal der evt. være et SignOn som med MAPI?

Prøv at fjern de linier der starter med on error goto og kør det igen, så får du sikkert et andet sted.

VH CK

Nej, det sker vist i .send.... ActiveX component can't create object.
Gode forslag?

Er det ligegyldigt hvilket mailsystem jeg bruger som standard?
Jeg bruger Outlook Express.

Jo for den bruger et eget indbygget mail system - sikkert OE indenunder. Men den fejl, det tyder på at der er fejl i komponentet, eller at det ikke er installeret ordentligt. Kunne du se det under referencer, og klikkede dy den af?

Jeg har ikke noget bud på hvordan det ellers kan løses.

VH CK

Ja, hvis jeg åbner Microsoft outlook istedet, så får jeg fejl.
Så måske det er det mailsystem koder her kalder.

Fejlen er at der mangler en VBScript.Dll.
Den beder mig så køre regsvr32.exe på vbscript.dll og det lykkes, men mailprogrammet melder stadig fejl. Nogen ideer?

Point til dig.

Så skal du bare lige acceptere mit svar.

VH CK