Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Viewing Attachments in cc:Mail Problem!!!!!!!

Status
Not open for further replies.

Guest_imported

New member
Jan 1, 1970
0
Here's the problem... we use cc:Mail @ work... When some people send me email with attachments, I see the attachment as part of the body of the email (I can see it, between the little red corner markers, but can't save it; there's no file to "click"). Other people can send me mail that shows the attachment as an attached file, which I can then save..... We share computers here so maybe someone changed something on the setup, but the two displays of attachments are random - it didn't "suddenly" change to all one way. Where can I go to make sure that ALL attachments show up in my email as files that I can click on and save??? Please help!!!! I'm losing lots of valuable information if I don't save the whole email and of course, the attachments that I can't click and save are useless to me if they're forms, etc. since I can't save them to fill out.
 
Same problem ! I've got all my system of mail confos based on this and my clients don't have the attachement. and the code from the forum that I used doesn't really embed the html. I wonder how to do to 1/embed it 2/make it so that all the recipients see the attachement.

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
Else
Maildb.OPENMAIL
End If

Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.sendto = Recipient
MailDoc.Subject = Subject
MailDoc.body = BodyText
MailDoc.SAVEMESSAGEONSEND = SaveIt

If Attachment <> &quot;&quot; Then
Set AttachME = MailDoc.CREATERICHTEXTITEM(&quot;Attachment&quot;)
Set EmbedObj = AttachME.EMBEDOBJECT(1454, &quot;&quot;, Attachment, &quot;Attachment&quot;)
' MailDoc.CREATERICHTEXTITEM (&quot;Attachment&quot;)
End If
MailDoc.PostedDate = Now()
MailDoc.Send 0, Recipient

Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set session = Nothing
Set EmbedObj = Nothing
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top