Раньше когда была версия Lotus 7 отправлялись письма и вложения без проблем, как только сменил Лотус на 8.5 тело письма и вложения не доходят до адресата, что сделать? Вот код ниже, как его подправить под Лотус 8.5 ?

' ОТПРАВЛЯЕМ ПОЧТУ ЧЕРЕЗ ЛОТУС


Dim Maildb As Object 'The mail database
Dim UserName As String 'The current users notes name
Dim MailDbName As String 'The current users notes mail database name
Dim MailDoc As Object 'The mail document itself
Dim AttachME As Object 'The attachment richtextfile object
Dim Session As Object 'The notes session
Dim EmbedObj As Object 'The embedded object (Attachment)
Dim Subject As String 'The subject string
Dim Attachment As String 'The path to the attachemnt string
Dim Recipient As String 'The Recipient string (or you could use the list)
Dim Recip(10) As Variant 'The Recipient list
Dim BodyText As Object 'The body text
Dim SaveIt As Boolean 'Save to sent mail
Dim WasOpen As Integer 'Checking to see if the Mail DB was already
'open to determine if session should be
'closed (0) or left alone (1)
Dim ClipBoard As DataObject 'Data object for getting text from clipboard

Subject = Subject_put

Recipient = email





' Тело сообщения
Worksheets("Sheet2").Range("A1:A30").Copy

Set ClipBoard = New DataObject
ClipBoard.GetFromClipboard
SaveIt = True
Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
Set Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.IsOpen = True Then
WasOpen = 1 'Already open for mail
Else
WasOpen = 0
Maildb.OPENMAIL 'This will prompt you for password
End If
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.sendto = Recipient 'Or use Racip(10) for multiple
MailDoc.Subject = Subject
MailDoc.Body = ClipBoard.GetText(1)
MailDoc.SAVEMESSAGEONSEND = SaveIt

Filenamesend = "C:\MY\Отходы и лом\Получение отходов\Контракты\" + Filename + "\Работа с Договором и документами\" + _
Filename + "-СМКТС от " + Format(Date, "dd-mm-yyyy") + ".pdf"
fl = Dir(Filenamesend)


Attachment1 = Filenamesend ' Required File Name

If Attachment1 <> "" Then
On Error Resume Next
Set AttachME = MailDoc.CREATERICHTEXTITEM("attachment1")
Set EmbedObj1 = AttachME.EMBEDOBJECT(1454, "attachment1", Filenamesend, "") 'Required File Name
On Error Resume Next
End If


MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent items folder
MailDoc.SEND 0, Recipient

Range("A1").Select
Application.CutCopyMode = False
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set EmbedObj = Nothing
If WasOpen = 1 Then
Set Session = Nothing
ElseIf WasOpen = 0 Then
Session.Close
Set Session = Nothing
End If

'MsgBox "Заказ успешно отправлен:) ", vbOKOnly

Shocker.Pro,

? не нашел никакого ответа на свою проблему

Shocker.Pro,

ну да спасибо за наглядность