Lotus Notes を使用して VB6 でアプリケーションを作成しているので、さまざまな受信者に電子メールを送信します。これは日次レポートを送信する重いアプリケーションであり、かなり重いタスクであるため、専用のマシンが実行されています。これには、win ユーザーがログインしており、使用されている Lotus セッションは、win ユーザーに関連するものです。電子メール メッセージは、Lotus/Win セッションを持つユーザーによって送信されます。
これで、このユーザーは Lotus の共有メールボックスにアクセスできるようになりました。この新しい共有メールボックスからメールが送信されるようにします。手動で行うことができ、メッセージはこの共有メールボックスのメインの電子メールから送信されていることに気付きましたが、その下に「UserX から送信された」というフィールドが追加されています。これは、自動化したい状況です。
私はこの（VB6）コードを持っています：
'Start a session to notes
Set Session = CreateObject("Notes.NotesSession")
'Get the sessions username and then calculate the mail file name
UserName = Session.UserName
MailDbName = Left(UserName, 1) & Right(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
'Open the mail database in notes
Set Maildb = Session.GETDATABASE("", MailDbName)
を選択するこの最後の行を変更する必要があると思いますMailDbName。
どなたかご案内いただけませんか？
ありがとうございました。