Hello everybody,
I have to send some documents with a lotuscript agent…
doc.form=“MaiForm”
doc.send(false,false)
I’m using a Form (MailForm) that contains some pictures in the form, and when I send the mail with the form, the Notes users can open the mail and they can see the pictures without problems.
But the problem is when an Outlook user have to open de mail,they can open the mail but they can see the pictures, and the pictures are attached… 
Do you know any way to send images embedded in the mail for Outllok users too?
In order to do the mail nicer?
Thank you so MUCH, everybody is here.
Subject: Sending Mail through Notes Web to Outllook
Copy & Paste the following code to a button & replace the SendTo field value.
Sub Click(Source As Button)
'Declare Variables
Dim s As New NotesSession
Dim db As NotesDatabase
Dim body As NotesMIMEEntity
Dim stream As NotesStream
Set db = s.CurrentDatabase
'Capture the server name and filepath for use in URLs
Dim ServerName As New NotesName( db.Server )
s.ConvertMIME = False ' Do not convert MIME to rich text
Set stream = s.CreateStream
'Begin creating the message doc to send
Dim message As New NotesDocument (db)
message.Form= "memo"
Set body = message.CreateMIMEEntity
'Basic profile of email
message.Subject = "Sample MIME E-mail viewable by almost all mail clients"
message.SendTo = "sendToAddresshere"'*****IMPORTANT - ENTER SENDTO Address here
'YOU CAN ADDITIONALLY ENTER COPYTO AND BLINDCOPY TO OR PROVIDE AN ARRAY IN THE SEND TO FIELD TO SEND THE E-MAIL TO MULTIPLE RECIPIENTS
message.RecNoOutOfOffice = "1"
Call stream.WriteText ("<html><head><title>title</title>")
’ BEGIN: Inline Stylesheet
Call stream.WriteText (|
|)
’ END: Inline Stylesheet
Call stream.WriteText ({</head>})
Call stream.WriteText ({<body text="#666666" bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginheight="0" marginwidth="0" alink=white vlink=white link=white>})
’ BEGIN: HTML body
Call stream.WriteText ({
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<tr><td>some logo here . I am giving IBM's as a sample<img src=http://www-10.lotus.com/ldd/lddfiles.nsf/mast_logo.gif onClick="javascript:window.open('http://www.ibm.com')" style='cursor:hand;pointer:hand'></td> </tr>
<tr><td> <br>} & Cstr(Now()) & {<br> <br></td></tr>
<tr><td>}& "Provide the content for your e-mail" &{</td></tr>
</table>
})
Call stream.WriteText ({</body></html>})
Call body.SetContentFromText (stream, "text/html;charset=iso-8859-1", ENC_NONE)
Call message.Send (False)
s.ConvertMIME = True
End Sub