Create a button to Email file using LotusNotes

[asabti]

I would like to create a button that emails the file... the only problem is that we don't run outlook here we use lotusnotes... is this possible?

[royUK]

Use the forum search for "Lotus Notes"

[asabti]

This is the code i'm working with...

Sub SendNotesMail()
Dim Email As String, Subj As String, Msg As String
Dim r As Integer, x As Double
Dim Maildb As Object, UserName As String, MailDbName As String, DomDbName As String
Dim stFileName As String
Dim MailDoc As Object, Session As Object



Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
MailDbName = "mail\" & Mid$(UserName, 4, InStr(1, UserName, " ") - 4) & Mid$(UserName, _
InStr(1, UserName, " ") + 1, InStr(1, UserName, "/") - InStr(1, UserName, " ") - 1) & ".nsf"
Set Maildb = Session.GetDataBase("", MailDbName)
If Maildb.IsOpen = True Then
Else: Maildb.OpenMail
End If
For r = 2 To 4
Set MailDoc = Maildb.CreateDocument
MailDoc.Form = "Memo"
Email = Cells(r, 2)
Subj = "Your Annual Bonus"
Msg = ""
Msg = Msg & "Dear " & Cells(r, 1) & "," & vbCrLf & vbCrLf
Msg = Msg & "I am pleased to inform you that your annual bonus is "
Msg = Msg & Cells(r, 3).text & "." & vbCrLf & vbCrLf
Msg = Msg & "From Just Testing" & vbCrLf
Msg = Msg & "Test"

MailDoc.sendto = Email
'MailDoc.CopyTo = Whomever
'MailDoc.BlindCopyTo = Whomever
MailDoc.Subject = Subj
MailDoc.Body = Msg
MailDoc.SaveMessageOnSend = True
MailDoc.PostedDate = Now
'Wait two seconds before sending keystrokes
'Application.Wait (Now + TimeValue("0:00:02"))
'Application.SendKeys "%s"

On Error GoTo Audi

Call MailDoc.Send(False)
Next r
Set Maildb = Nothing: Set MailDoc = Nothing: Set Session = Nothing
Exit Sub
Audi:
Set Maildb = Nothing: Set MailDoc = Nothing: Set Session = Nothing

End Sub

I need to somehow alter this such that it sends the whole worksheet to just one email so it seems possible but i don't know where to start!

[royUK]

Please use the Edit button to add Code Tags above

[asabti]

still not getting anywhere with this... i need to create a send button that sends the whole worksheet and my email client is lotus notes

[royUK]

You will need to be patient until omeone who uses Lotus Notes can help