Place Excel File Path As Link In Lotus Notes Email Body

Oct 29, 2013

I have an Excel sheet that I use as a mailing automatism for reports. As it currently is it attaches an actual copy of the excel workbook to the email and send them out. The mailer contains several different people, and they get different report each day. Due to the size of some of the files, I am starting to run into an issue where I cannot sent the emails anymore because they are too big, so I am wanting to switch to sending links to the files instead, and I have hit a wall.

I use Lotus Notes 8.5. The VBA will cycle through a range, and each cell has a list of report delimited by a ",". It takes the list and passes it to the mailer as a string. The mailer takes the string, turns it into an array and splits it out, and then checks to make sure the reports are current. One email could have up to 10 different reports in it. I have tried creating an HTML MIME email to include the links.

Here is the code I currently have:

Code:
Sub Send_HTML_Email(ByRef Name As String, ByRef Address As String, ByRef Reports As String)
Const ENC_IDENTITY_8BIT = 1729
'Send Lotus Notes email containing links to files on local computer
Dim NSession As Object 'NotesSession
Dim NDatabase As Object 'NotesDatabase
Dim NStream As Object 'NotesStream
Dim NDoc As Object 'NotesDocument

[code]...

View 1 Replies


ADVERTISEMENT

Attaching File To Lotus Notes Email

May 12, 2006

I managed to create the attached macro with help from stuff I've found in the internet. With this code, I am able to save the file and then send an email cia Lotus Notes. I need two things:

(1) The code to attach the file saved into the email that it sends

(2) The code so that the file is protected so that changes are not made by the recipient.

HERE IS THE
ActiveSheet.Copy
ActiveWorkbook.SaveAs filename:="V:TFMCO8 ReportingHistory" & [c22].Value & " " & Format$([c20], "- (YYYY-MM-DD)") & ".xls"
ActiveWorkbook.Close False

Dim Maildb As Object, UserName As String, MailDbName As String
Dim MailDoc As Object, Session As Object

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 Then
Else: Maildb.OpenMail...........

View 9 Replies View Related

Select Range For E-mail Body Using Lotus Notes

Sep 29, 2009

The following will place values found in O19,020,&022 into an e-mail body.
I'm attempting to place a selected range of cells into the body also.
To do this I tried the highlighted section of code below.

View 11 Replies View Related

Create Email In Lotus Notes

Jun 2, 2014

I have an excel file that will be downloaded by multiple users and saved locally. I was wondering if there was a way to build code into the file so that everytime it is saved an email would be created in lotus notes from the user to me with a copy of the file attached. Is this possible?

View 2 Replies View Related

Sending Email Using Lotus Notes

Oct 30, 2006

I have developed many macros that generate automatic emails from excel using Outlook, with the excellent help I've found here. Now due to recent buyouts, we have changed our email from Outlook to Notes. I'm looking for the simplest method of changing my macros so they will work with Notes. Below is the typical code I'm currently using. Is there an easy way to change it for Notes?

Public Sub SendEmail()

Dim OutApp As Object
Dim OutMail As Object
Dim Dist As String
Dim supplierinfo As Range

Dist = WorksheetFunction.VLookup(Supplier, Workbooks("ScarForm.xls").Sheets("Supplier Information").Range("a9:z1000"), 3, 0)

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.to = Dist
.CC = "emailnames"
.BCC = ""
.Subject = "email subject"
.Body = "Text of email"

Windows(Fname & ".xls").Activate
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Set OutMail = Nothing
Set OutApp = Nothing

End Sub

View 9 Replies View Related

Email Through Lotus Notes After Cell Change

Aug 18, 2014

I am looking to build a macro that can automatically email a recipient upon their name being selected from a drop down list. It designed to be for a warehouse, so when new packages come in we can scan them in and have excel send an email out once our receiving team determines who it is for. With their being multiple recipients, I would like the code to have an IF type function that choosing the correct recipient. the Column titles "Recipient/Dept" is where the dropdown list is located.

It would be ideal for the code to just utilize an open Lotus Notes Session and use that to send the email.

Attached is the document with what I have thus far : Warehouse barcode test.xlsm

View 14 Replies View Related

Edit Email Macro - Lotus Notes

Nov 8, 2007

I have a macro that sends a custom email through lotus notes. It works, but will only generate 1 email instead of looping through my list. If I have "next r" at end I get email of 1st record. If I put "next r" before "On Error GoTo Audi"

I get last recorded emailed but not 1st 2. I don't know how to get it to send all. It seems the for next loop is jacked up.

For you to see macro work you need to have lotus notes and put email address in column B.

test file is attached.

View 10 Replies View Related

Email 2 Of Spreadsheets From Workbook Via Lotus Notes

Feb 18, 2013

I have found the code that I need to send one spreadsheet or the entire workbook via lotus notes through VBA, but I cannot seem to find the way to email 2 specific spreadsheets anywhere..

I have tried both of these, but I get an error when running:

Code:
With Worksheets("Diario") And Worksheets("Periodo")
.Copy
stFileName = Worksheets("BD").Range("A1").Value & "- NDG " & Worksheets("Code").Range("K22").Value
Debug.Print stFileName
End With

Code:
With Sheets(Array("Diario", "Periodo"))
.Select
Selection.Copy
stFileName = Worksheets("BD").Range("A1").Value & " - NDG " & Worksheets("Code").Range("K19").Value
Debug.Print stFileName
End With

I would like the 2 sheets (Diario & Periodo) to be copied both to the same temporary workbook...

View 1 Replies View Related

Attaching Signature To Email In Lotus Notes

Jul 17, 2013

Any ways to automatically send emails using Lotus Notes.

On Lotus Notes, I automatically have my signature to append to an email, however when I am running Johns script at the bottom it is replaced with the file path of my signature (i.e. C:Program Fileslotus
otesdatasig.htm), and when I comment out the part where strSignature is mentioned there is no signature.

My code is below:

Sub mySub()
Dim x As Integer
Dim UserName As String
Dim MailDbName As String
Dim Recipient As Variant
Dim Maildb As Object
Dim MailDoc As Object

[Code] ...........

View 1 Replies View Related

2003 - Send Lotus Notes Email

Dec 28, 2007

I have Excel 2003 and Lotus Notes Version 6 and I need to send out the active workbook from Excel. I have searched through the existing threads, but all the code that I run results in errors -

View 9 Replies View Related

Inserting Images Into Lotus Notes Email

Feb 13, 2004

Finally I have the code all okay for Sending Reports, and other extra comments etc...

And now...
Is there code available for picking up images ( Screen snaps) and inserting into an email in Notes after the Body of the Message?

Either a reference to a link or some code would be greatly appreciated, cos I cannot find any info at this point in the archives ( Presuming I have searched using proper parameters ).

View 9 Replies View Related

Email Multiple Recipients From Range Using Lotus Notes

May 3, 2009

I have searched high and low on the forum and can not seem to find a solution to my problem. Here is my problem (besides being new to Lotus Notes): I need a button on my excel worksheet that gets information from Column H in the attached spreadsheet and puts all the emails in the To: (could be >than 100 email addresses) Field in Lotus Notes. I would like to have the subject read "New Email from Your Basin Coordinator" and have the CC list come from a second worksheet (CC).

View 4 Replies View Related

Vba Code Used To Send Lotus Notes Email - A Few Edits

Feb 27, 2008

1. I dont want this to auto send. I want it to compose the mail and leave it ready to hit the send button in lotus notes. How do I do that?

2. Would like to include multiple emails. If I put two emails (separated by comma or semicolon into cell C19, Lotus notes sends as one address and it bounces. (This is not terribly important, but would be a nice feature)

3. Would like to insert the signature line that's already configured on lotus notes. Since this auto sends the email, the signature is not added. Any idea how to do this?

4. Now this would be really nice, tell the macro which database to use. The one I want to use is not "my" email, but a shared email. It lives on server "Notes1/recovery" , in folder "mail" with a database named "company.nsf". Is there a way to do this?

Here is my code that works, but needs the above features.


Sub SendNotesMail()
Dim Maildb As Object
Dim UserName As String
Dim MailDbName As String
Dim MailDoc As Object
Dim Session As Object
Dim Recipient As String
Dim Subject1 As String
Dim ccRecipient As String

View 9 Replies View Related

Send WorkSHEET As Email Attachment - LOTUS Notes

Mar 2, 2009

putting a macro button on an individual worksheet so the user can click a big easy button and a new email will pop up in Lotus notes with the worksheet attached for them to input the address and then send the worksheet..

I prefer to:

Send individual worksheets only

The ability to input the email address is the new composition email in LOTUS Notes

View 9 Replies View Related

Creating A Macro To Send An Automated Email Through Lotus Notes

Oct 15, 2009

The following line of code is part of the great work that this forum did in creating a macro to send an automated email through Lotus Notes.

I have a small tweak that requires the Body of the message to exist on sheet other than the one where the macro is launched.

The originial code had:

Body1 = Replace(Join(Application.Transpose(Range([by9], [by18].End(3))), "@") & "@@Thank you,", "@", vbCrLf)

I tried:

Body1 = Replace(Join(Application.Transpose(Sheets("LookUp Sheet").Range([by9], [by18].End(3))), "@") & "@@Thank you,", "@", vbCrLf)

But the body of the email is not being copied.

Am I putting the calling the Sheets reference incorrectly?

The routine works perfectly if the body data comes from the sheet where the macro is launched?

View 9 Replies View Related

Excel Macro For Lotus Email With Attached File?

Aug 6, 2014

I'm trying to create an excel macro that can send emails with an attached file per row of my entry in excel I imagine it would be like the screenshot below. I've tried the code in the link below from a macro tutorial website but wasn't able to make it work due to error DataObject is unkown I'm using excel 2013 and lotus notes 8.5 as my email.

View 9 Replies View Related

Putting A Clickable Link In The Body Of Email Sent

Nov 18, 2008

I've managed to get the following macro working except for one small thing - the link to the folder where the spreadsheet (that will be attached to the email) resides (which I got to work fine in a macro to send out tasks) just ends up as plain text and is not clickable

Make this link clickable in the email so that when the recipient receives the email they can just click on the link and go straight to the relevant folder please? (I've highlighted the line with what I would like to work as a link in red)

View 2 Replies View Related

Open Document (.xls Or Pdf) Within Lotus Notes Database With Excel VBA??

Oct 22, 2013

I am trying to open an .xls excel file within a non-email lotus notes database with vba code in excel.

View 3 Replies View Related

Mailto Link In Excel With Subject And Body

Aug 10, 2009

I am trying to send out an e-mail from excel with all kinds of combined info. Here is what I have so far, which works to send out an e-mail to a certain address with a compiled subject. No luck with inserting the BODY of the e-mail yet from a certain cell.

=HYPERLINK(CONCATENATE("mailto:",E32,"?subject=",F32))

Also, How do I make the text in each of these cells read "send e-mail" rather than the whole jumbled mess that is currently in there from the combination of the cells?

View 6 Replies View Related

Email Excel Range Using Lotus

May 27, 2009

I have yet to find ANY information online relating specifically to emailing any given range in Excel via Lotus Notes. The codes that do exist out there either fail to fully copy the range or relate to attaching an excel file into a Lotus Notes Memo.

Below I have copied the code the I am working with, but I keep getting the following error: Error # 438, Object doesn't support this property or method. After making some minor tweaks, it might then give me another error, Error 424 Object Required, but the range then doesn't copy into the Lotus Notes memo at that point.

I have highlighted the area that I think the code is failing at, that being the actual act of copying/pasting the range selected into the Lotus Notes Memo. With the current code, the selected range does get fully copied into a new memo in Lotus notes, but these errors populate in Excel.

Can anyone offer any suggestions to resolve this issue? I have spent hours on this and I'm sure there are many others out there that might be able to benefit from a solution as well.

Function LotusEmailQuote() ....

View 9 Replies View Related

Automatic Email Notification From Excel To Lotus

Mar 14, 2011

I am wanting to send an automatic email notification to several lotus notes accounts once a specific cell in my excel spreadsheet has been entered in (It does not matter what is entered into the cell).

View 9 Replies View Related

Password - (LotusScript) Lotus Notes

Nov 17, 2006

I have problems with passwords in excel 97. The perfect Script below wheel in excel 2000 and 2003, but presents problems in excel 97.

Function EnviaBancoALTEND(Para As String, Doc As NotesDocument, DB As NotesDatabase, Password As String)

Dim ws As New NotesUIWorkspace
Dim s As New NotesSession
Dim Doc_Mail As NotesDocument
Dim RTItem As NotesRichTextItem
Dim object As NotesEmbeddedObject

Dim xlApp As Variant
Dim xlsheet As Variant

'cria o excel
Set xlApp = CreateObject("Excel.application")
xlApp.Visible = False
xlApp.Workbooks.Add
Set xlsheet = xlApp.Workbooks(1).Worksheets(1)
XlApp.Windows(1).DisplayGridlines=False

View 9 Replies View Related

Lotus Notes Calandar Entries Using VBA

Oct 2, 2008

I am developing a VBA program that will take rows of data from a worksheet and create Lotus Notes Calendar entries.

My code works fine until it wants to add a calendar entry dated in the past... at this time I get a pop up message on Notes saying "This entry is being created in the past.

Create anyway?" and an option to click yes or no..

how to either suppress the pop up or programatically supply a "YES".

View 9 Replies View Related

Lotus Notes Reading Stationery

May 15, 2009

I'm in the middle of creating an auto-mailer via Excel VBA (and got most of it working) but I've run across a small(ish) snag.

To save me about 3 hours work, I need to get the subject of the stationery, the "To" list, the "CC" list and the "BCC" list for every stationery (currently around 150).

Is there any way of getting VBA to read all the stationeries on our inbox (it's shared) and giving me the info I need?

View 9 Replies View Related

Getting Item Details From Lotus Notes

Aug 4, 2009

I'was given a piece of code to read through stationeries in Lotues Notes so I could quickly retrieve all the Sendto, CC and BCC information.

I'm now trying to modify that so I can check two specific folders in a mailbox and retrieve all the dates that e-mails have been received on.
Code is here:-

Sub new_reader()
Dim Maildb As Object, view As Object, Session As Object, entry As Object, entries As Object

Sheets("Sheet4").Select
counter = 2

Set Session = CreateObject("Notes.NotesSession")

Set Maildb = Session.GETDATABASE("servername", "boxname")
If Maildb.IsOpen = False Then
Maildb.OPENMAIL
End If

View 9 Replies View Related

Sending Mail Through Lotus Notes

Dec 17, 2009

Can we send mail through lotus notes in excel.
Request you guide me with this as to how to do it and what the code is.

I need to send a simple mail in body and as an attachment

View 9 Replies View Related

Spreadsheet Through Lotus Notes E-mail

Feb 6, 2004

I received an excel spreadsheet through lotus notes e-mail. I opened it from the e-mail and worked several hours on it, sporadically hitting "save" along the way. However, I do not recall having ever done "Save As" and specifying a location to save it in. I later closed excel. Now I cannot locate the spreadsheet (I have searched). Do you know where it might be located or how I might recover it? When you open spreadsheets directly from e-mails and just hit save (not save As),

View 9 Replies View Related

Copy Paste From Email Body To Excel

Jan 18, 2013

I have an email with body in tabular form. I need to copy this into excel in the as is condition.

When I do it manually, I see that the table nicely fits in different cells and looks good, but when I use a macro , I see that everything gets copied to a single cell.

View 6 Replies View Related

Copy Email Body To Excel Worksheet With VBA

Aug 14, 2012

I am trying to automate a process whereby i receive an email via outlook with a particular subject line every day and i want to copy the body of the email into an existing excel spreadsheet and save it.

It's the first time i've really used vba in outlook, and i have written one to save any attachments which works ok using rules/run a script, but i'm stuck when it comes to copying the body

It would be really useful if when pasting into excel it didn't go all into one cell and just pasted over like if you were performing it manually

View 1 Replies View Related

How To Copy / Paste Excel Table Into Lotus Email

Feb 1, 2013

When i click a button in excel, i need the table from a certain "Range" to copy/paste in the body of an e-mail that will send itself automatically. Now, i know how to build the macro to automatically send the e-mail but i can't find a way to insert the table in it. here's the code i'm using to send the e-mail:

Public Sub SendMail2()
'Tools --> references --> Microsoft Scripting runtime
'Variables
Dim EMailSendTo As Variant

[Code].....

But i don't know how to adapt the code for my problem.The fact is, i've just started to write macros and the code i'm using for the e-mail isn't from me, i have juste adapted it for my problem.

View 2 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved