---

Jeg er ved at lave en stump kode som skal kunne oprette en mail i Lotus
Notes og vedhæfte en fil af type htm. Hvor går jeg gal i koden - for det
virker ikke med at vedhæfte filen. (filen SKAL være vedhæftet, må ikke blive
vist som en del af selve mailen.
Koden skal kunne kompileres uden at have Notes installeret på den pc jeg
arbejder med.

......... klip..........

Private Sub NotesMail()

Dim oSess As Object
Dim oDB As Object
Dim oDoc As Object
Dim oItem As Object
Dim direct As Object
Dim oB As Object
Dim Var As Variant
Dim flag As Boolean


Set oSess = CreateObject("Notes.NotesSession")
Set oDB = oSess.GETDATABASE(" ", "")
Call oDB.OPENMAIL
flag = True
If Not (oDB.ISOPEN) Then flag = oDB.Open("", "")
If Not flag Then
Exit Sub
End If

On Error GoTo errHandler:

Set oDoc = oDB.CREATEDOCUMENT
Set oItem = oDoc.CREATERICHTEXTITEM("BODY")
oDoc.Form = "Memo"
oDoc.subject = "Testmail"
oDoc.body = "This is a testmail"
oDoc.postdate = date
set ob = Call oItem.EMBEDOBJECT(1454, "", "c:\testfile.htm")
oDoc.Visible = True

oDoc.send False
exit_SendAttachment:
On Error Resume Next
Set oSess = Nothing
Set oDB = Nothing
Set oDoc = Nothing
Set oItem = Nothing
Set oB = Nothing
Exit Sub

errHandler:
Exit Sub

End Sub

.......... slut klip ..............

På forhånd tak for hjælpen
Jan

---

"news" <janf@ofir.dka> wrote in
news:3db6724a$0$34804$edfadb0f@dspool01.news.tele.dk:

> Jeg er ved at lave en stump kode som skal kunne oprette en mail i
> Lotus Notes og vedhæfte en fil af type htm. Hvor går jeg gal i
> koden - for det virker ikke med at vedhæfte filen.

Hvilken fejl får du?

Jeg kan umiddelbart få øje på to ting:

1. Linjen Set oDB = oSess.GETDATABASE(" ", "")
skal være Set oDB = oSess.GETDATABASE("", "")
uden mellemrum i det første parameter, for at
få et databaseobjekt, der ikke er bundet til en
specifik database.

2. Du angiver ikke nogen modtager på mailen.
Enten oDoc.SendTo = "email_adresse_her" eller
ved oDoc.Send(false, "modtagere_her")

> (filen SKAL være vedhæftet, må ikke blive vist som en del
> af selve mailen.

Må man ikke kunne se vedhæftningen, eller må man ikke kunne
se indholdet af filen?
Den kode du har vist, vedhæfter kun filen. Hvis indholdet bliver
vist i mailprogrammet, er det i mailprogrammet, du skal rette noget.

Jeg testede lige koden, og bortset fra de småting jeg nævnte,
så virker koden som den skal...?

--
Vh Morten

---

Jeg får ikke nogen fejl, men programmet forsøger at indsætte indholdet af
den vedhæftede htm-fil i selve tekste i mailen. De indholdet af htm-filen
kun kan vises i et andet program eller en browser - er jeg nødt til at have
filen vedhæftet således at den først skal gemmes på disken inden den åbnes.

Brugeren skal først indtaste modtagerens mailadr. når mailen er genereret
fra vb.

Man skal kunne se der er en vedhæftet fil, så brugeren får mulighed for at
gemme den på disken og åbne filen i et andet program.

m.v.h

Jan

"Morten Fast" <usenet@freestate.dk> skrev i en meddelelse
news:Xns92B1E8BA52E15usenetfreestatedk@193.88.15.213...
> "news" <janf@ofir.dka> wrote in
> news:3db6724a$0$34804$edfadb0f@dspool01.news.tele.dk:
>
> > Jeg er ved at lave en stump kode som skal kunne oprette en mail i
> > Lotus Notes og vedhæfte en fil af type htm. Hvor går jeg gal i
> > koden - for det virker ikke med at vedhæfte filen.
>
> Hvilken fejl får du?
>
> Jeg kan umiddelbart få øje på to ting:
>
> 1. Linjen Set oDB = oSess.GETDATABASE(" ", "")
> skal være Set oDB = oSess.GETDATABASE("", "")
> uden mellemrum i det første parameter, for at
> få et databaseobjekt, der ikke er bundet til en
> specifik database.
>
> 2. Du angiver ikke nogen modtager på mailen.
> Enten oDoc.SendTo = "email_adresse_her" eller
> ved oDoc.Send(false, "modtagere_her")
>
> > (filen SKAL være vedhæftet, må ikke blive vist som en del
> > af selve mailen.
>
> Må man ikke kunne se vedhæftningen, eller må man ikke kunne
> se indholdet af filen?
> Den kode du har vist, vedhæfter kun filen. Hvis indholdet bliver
> vist i mailprogrammet, er det i mailprogrammet, du skal rette noget.
>
> Jeg testede lige koden, og bortset fra de småting jeg nævnte,
> så virker koden som den skal...?
>
> --
> Vh Morten