473,722 Members | 2,155 Online
Bytes | Software Development & Data Engineering Community
+ Post

Home Posts Topics Members FAQ

Access Lotus Notes Email, Changing Sent By Name

I'm not a Lotus Notes developer but thanks to this group's archives
have successfully created a function for sending Lotus Notes emails
from Access.
The follow code works great except I want to remove my name from the
'Sent By' portion of the email.

These messages are sent using my client session of Lotus Notes, using
a database called 'Tech Team' The resulting email message headers
contains
(Bold, the From name) 'Tech Team'
(non-bold) Sent by: <my name> (this is what I want
to remove)
(non-bold) 'Please respond to Tech Team'

This application send automails to employees in my company for a
specific web application and I'm not the person they should be
directing their questions to. (Nor have I been successful in
persuading the Notes administrators to setup a separate Notes account
for us.)

When I manually send a message, in Lotus Notes, from this Tech Team
database, that 'Sent By' message doesn't appear on the recepient's
copy of the email. So know it can be done; the question is how can
this be done in Access?
-------------------------------------
Public Function LN_EmailMsgSend (pSendTo As String, pSendCC As String,
pSubject As String, pMessage As String, pPassword As String) As
Boolean

Dim domMailDB As NotesDatabase
Dim domSession As notesSession
Dim domMailDoc As NotesDocument
Dim domRTI As NotesRichTextIt em
Dim domStyle As NotesRichTextSt yle

Dim sServerName As String
Dim sDB_FileName As String
Dim sSendTo() As String
Dim sSendCC() As String

sServerName = Get_LNotes_Serv erName()
sDB_FileName = Get_LNotesDB_Fi le()
sSentBy = Get_SenderName( )

' Move the SendTo and SendCC comma delimited addresses, into string
arrays

ParseAddresses sSendTo, pSendTo, iAddressCnt
ParseAddresses sSendCC, pSendCC, iAddressCnt
Set domSession = CreateObject("L otus.NotesSessi on")
domSession.Init ialize (pPassword)

Set domMailDB = domSession.GetD atabase(sServer Name, sDB_FileName)

If domMailDB.IsOpe n = False Then
domMailDB.OPENM AIL
End If

Set domMailDoc = domMailDB.Creat eDocument

Call domMailDoc.Appe ndItemValue("Se ndTo", sSendTo)
Call domMailDoc.Appe ndItemValue("Co pyTo", sSendCC)
Call domMailDoc.Repl aceItemValue("S ubject", pSubject)
Call domMailDoc.Repl aceItemValue("P ostedDate", Now())
Call domMailDoc.Repl aceItemValue("R eplyTo", sSentBy)
Call domMailDoc.Repl aceItemValue("P rincipal", sSentBy)
domMailDoc.SAVE MESSAGEONSEND = 1

Set domRTI = domMailDoc.Crea teRichTextItem( "body")

Set domStyle = domSession.Crea teRichTextStyle
domStyle.Bold = 0
domStyle.NotesF ont = FONT_HELV
domStyle.FontSi ze = 10
Call domRTI.AppendSt yle(domStyle)

Call domRTI.AppendTe xt(pMessage)

domMailDoc.send 0, sSendTo

End Function
Nov 13 '05 #1
0 5612

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

5
5582
by: Fixem2 | last post by:
I am trying to use the following code to send an email to Lotus Notes from A2K. (Retrieved from Tony's excellent Access Email FAQ.) http://www.fabalou.com/VBandVBA/lotusnotesmail.asp I am trying to activate the VBA through a button on a form and I am getting no response. I believe it is due to haveing the Public Sub within the form, but when I convert to Private Sub I get the same, lack of response. The error that I get for each test...
5
7386
by: Colin Anderson | last post by:
I discovered, with great excitement, this article http://www.davison.uk.net/vb2notes.asp when researching methods for emailing from Access via Notes. Unfortunatly, when I run this I get a Run-time error. When I run it on an XP machine it crashes, but on an NT box it just generates an unknown error, handled by the error handler. I have debugged and stepped through the code and have narrowed the issue to the point at which the...
1
1684
by: moid | last post by:
I want to Email through Lotus Notes Server. Am i right on this that i wont be needing any lotus notes based assembly/dll to email through it I hope i just have to do is that to have smtpserver name to where lotus notes is installed Regards Moid Iqbal
2
1715
by: DeanL | last post by:
Hi Everyone, I'm not sure if this is even possible but I thought I'd ask anyway. I have an Access 97 database that contains construction projects and other associated details and is updated on a regular basis by construction engineers and the like. My problem is that ocassionally (actually, more like daily) emails are received from other project engineers with numbered comments and ocassionally answers or comments to each numbered...
2
11836
by: charliej2001 | last post by:
Hi all I'm trying to set up an Access database that will be able to import contact information from the lotus notes 6.5 Address book. The idea is that the code runs from access to import all of the contacts, using COM. I've written the following vba code so far to import the contacts
1
1339
by: Torilyn73 | last post by:
Ok folks... I apologize now if I'm covering territory already discussed. I'm sick as a dog right now and have got to get some work done on this datbase. Let me explain what I'm trying to do. I work as email tech support fo a computer manufacturer. Anyway, up until recently all emails sent from customers for help came into our Lotus Notes. The powers that be have changed us to an online forum sort of thing. The problem we are having is...
4
2297
by: MVSGuy | last post by:
Hello, I have a problem where a Notes field shows up in Access (via ODBC connection) but the value is either zero or blank in Access. I've verified the field is not zero or blank in Notes. Background - This is an existing ODBC connection from Access to Notes. For all other fields, it works fine. I've added a number field to the Notes database. It shows up in Access but never has the correct value. Is there something simple I'm...
3
3727
by: Pav | last post by:
Hi, I am developing a small Intranet web application which needs to send mails to our coporate Ids. I am using CDONTS, But my mails never leave Que folder. Not able to find out what the problem is . please help 1) I am very new to SMTP configiration on my own Windows XP PC. How do I configure to send mails. We Use Lotus Notes as our mail. Please
4
9659
by: Bob Alston | last post by:
I am trying to access data in a Lotus Notes database, from Access. The Notes database is release R5. I installed NotesSQL 8.x and have it working. However it chokes on one of the tables and references problems with the dates. If I create a query, without these dozen or so dates, I can access all the data. However I am guessing that most of the dates are correct and only some are bad.
0
8739
by: Hystou | last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it. First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
0
9238
jinu1996
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth. The Art of Business Website Design Your website is...
1
9157
by: Hystou | last post by:
Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
0
9088
tracyyun
by: tracyyun | last post by:
Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
1
6681
isladogs
by: isladogs | last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules. He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms. Adolph will...
0
5995
by: conductexam | last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one. At the time of converting from word file to html my equations which are in the word document file was convert into image. Globals.ThisAddIn.Application.ActiveDocument.Select();...
0
4502
by: TSSRALBI | last post by:
Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols. I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
2
2602
muto222
by: muto222 | last post by:
How can i add a mobile payment intergratation into php mysql website.
3
2147
bsmnconsultancy
by: bsmnconsultancy | last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.