HTML Mail

Brug Outlook til at sende med. Følgende kode eksempel kan det.

Sub SendMail()
    Dim oApplication As Outlook.Application
    Dim oMail As MailItem
    Set oApplication = New Outlook.Application
    Set oMail = oApplication.CreateItem(olMailItem)
   
    With oMail
        .To = "ck@targetgruppen.dk"
        .Subject = "Test mail"
        .HTMLBody = "<b>Dette er en overskrift i fed</b>"
        .Send
    End With
   
    Set oMail = Nothing
    Set oApplication = Nothing
End Sub

Iøvrigt alle maskiner der har CDONTS.dll registreret på masinen kan sende via CDO. Men som tidligere nævnt fatter jeg ikke, hvorfor dit kode ikke virker.

VH CK

Nej, det forstår jeg heller ikke.
Har nu indsat den kode du nævner og får følgende fejl:
User defined type not defined.
Det er iøvrigt en compilerings fejl og ikke en runtime.
Mangler der en erklæring af noget?

Fandt ud af at jeg mangler at tilføje referencen med outlook express 10.0.
Så får jeg ingen fejl. Nu er problemet bare, at der ikke kommer nogen mail frem!?

Jeg skriver følgende kode:

Sub SendEMailHTML()
    Dim oApplication As Outlook.Application
    Dim oMail As MailItem
   
    Set oApplication = New Outlook.Application
    Set oMail = oApplication.CreateItem(olMailItem)
   
    With oMail
        .To = "tv@regnskabshjaelpen.dk"
        .Subject = "Test mail"
        .HTMLBody = "<img src='C5LIGHT_145.gif' align='left' width='145' height='183'>"
        .Send
    End With
   
    Set oMail = Nothing
    Set oApplication = Nothing
End Sub

Private Sub Command1_Click()
    'MAPISession1.SignOn
'    Data1.Recordset.MoveFirst
'    Do While Data1.Recordset.EOF = False
        SendEMailHTML
'        Data1.Recordset.MoveNext
'  Loop
    'MAPISession1.SignOff
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

I øvrigt beder den om bekræftelse på at sende mailen.
Det er et problem, når man nu skal sende 1000 via et gennemløb af en Access database.
Kender du noget til om man kan slå det fra? Eller skulle jeg så have valgt noget helt andet kode :-)?

Nej der kommer ingen mail frem, den bliver sendt direkte.

Hvis du vil undgå at den spørger efter bekræftelse, så ska du ud og bruge redemption istedet. Redemption finder du på http://www.dimastr.com/redemption/

VH CK

Hvis du har et eksempel inden for det, som kan fungere som ovenstående eksempel, så lad mig høre og du skal få point.

Sub sendMailWithRedemption()
    Dim SafeItem As Redemption.SafeMailItem
    Dim oItem As Outlook.MailItem
    Set SafeItem = CreateObject("Redemption.SafeMailItem")
    Set oItem = Application.CreateItem(olMailItem)
    oItem.HTMLBody = "<b>En lille tekst</b>"
    SafeItem.item = oItem
    SafeItem.Recipients.Add "ck@targetgruppen.dk"
    SafeItem.Recipients.ResolveAll
    SafeItem.Subject = "En mail automatisk sendt fra Outlook"
    SafeItem.Send
End Sub


VH CK

Har lagt det ind, men user defined type not defined.
Er der en reference som skal slåes til??

Ja der skal selvfølgelig være en reference til den redemption fil du har installeret (SafeOutlook Library) på maskinen, og desuden også til Outlook, hvis du kører det udenfor Outlook.

VH CK

SafeOutlook bibrary??

Ja det hedder den reference til redemption du skal sætte.

Hvis den hedder det ordret du skriver der, så findes den ikke i mine referencer!?

Så har du ikke installeret redemption som jeg skrev ovenfor.

Det har jeg nu og jeg kan finde den pågældende reference.
Der er ikke flere compileringsfejl. Desværre virker min outlook jo ikke som du ved.
Men jeg compilerer lige en .exe og prøver på en anden pc.

ok

jeg har nu prøvet fra en anden pc, hvor outlook virker.
Jeg har får den gamle kende fejl med activex cant create object.... error 429.
??????????

Jeg har iøvrigt fået følgende link vedr. det:
http://support.microsoft.com/?id=828550
.... måske fra dig :-).

Måske du bliver klogere af det?

Redemption skal også være installeret på den anden PC, ellers vil det ikke virke.

VH CK

F.eks. kan jeg se at du har et recipient.add et sted.
Tror du det kan være et problem?

Nej det er ikke noget problem, hvis redemption er installeret på alle de maskiner der skal køre projektet, så virker det.

VH CK

Nå ok, jeg har ikke installeret det på den anden maskine.
Det gør jeg nu.

Du har ret, nu forsvinder alle fejl.
Men jeg modtager ingen mail på den emailadresse jeg har sat ind?

Så start Outlook og tryk send og modtag, redemption bruger Outlook til at sende med!

P.S. Jeg har lige kigget på dine spørgsmål, du bør nok se at får mange af dem der er svaret på lukket!

Du har ret de ligger som kladder. Og jeg kan åbne outlook og sende dem.
Men hvorfor bliver de ikke sendt automatisk uden, at jeg behøver at åbne outlook?

Hvordan skal jeg lukke spørgsmål?

Det er fordi de bruger Outlook til at sende med, så Outlook skal blot være åben og sættes op til at afsende automatisk engang imellem.

Du lukker et spørgsmål ved at klikke på det navn der har svaret, og så vælge accepter. Så tildeler du point, og spørgsmålet er lukket.

VH CK

Hvad betyder dig safeitem.send så??

Du siger du har set en oversigt over spørgsmål på mig?
Er det et sted her på siden jeg kan få overblik over mine egne spgsm?
Og hvad jeg mangler at lukke?

safeitem.send betyder at mailen gøres klar til at blive sendt via Outlook, men at den blot lægger sig der indtil Outlook sender afsted.

Du kan se dine brugerInfo ved at klkke på dit brugernavn øverst oppe til venstre.

Takker... og nu skal jeg så acceptere.

Jeg har lige et opfølgende spørgsmål. Er der en måde at undgå at det er outlook der styrer afsendelsen? Jeg har lavet et program som afsender mails en gang imellem. Programmet virker fint hvis man kører det almindeligt, men selve afsendelsen af mails fungerer ikke når programmet kører som service, hvilket det skal. Kan jeg gøre noget for at få afsendelsen til at fungere også ved kørsel som service?

Hilsen Torben