hi,

i use this code to check if lotus is open and attach the excel in lotus mail but how can i attach the file after the user is log-in to the lotus notes..

[VBA]
Sub SendMail()
'Working in 97-2007
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String

CheckLotusApp

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

Set Sourcewb = ActiveWorkbook

'Copy the sheet to a new workbook
With Worksheets("EPCIB")
.Unprotect strPassword
.Copy
.Protect strPassword
End With
Set Destwb = ActiveWorkbook

'Determine the Excel version and file extension/format
With Destwb
If Val(Application.Version) < 12 Then
'You use Excel 97-2003
FileExtStr = ".xls": FileFormatNum = -4143
Else
'You use Excel 2007
'We exit the sub when your answer is NO in the security dialog that you only
'see when you copy a sheet from a xlsm file with macro's disabled.
If Sourcewb.Name = .Name Then
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
MsgBox "Your answer is NO in the security dialog"
Exit Sub
Else
Select Case Sourcewb.FileFormat
Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
Case 52:
If .HasVBProject Then
FileExtStr = ".xlsm": FileFormatNum = 52
Else
FileExtStr = ".xlsx": FileFormatNum = 51
End If
Case 56: FileExtStr = ".xls": FileFormatNum = 56
Case Else: FileExtStr = ".xlsb": FileFormatNum = 50
End Select
End If
End If
End With

' 'Change all cells in the worksheet to values if you want
' With Destwb.Sheets(1).UsedRange
' .Cells.Copy
' .Cells.PasteSpecial xlPasteValues
' .Cells(1).Select
' End With
' Application.CutCopyMode = False

'Save the new workbook/Mail it/Delete it
TempFilePath = ThisWorkbook.Path & "\"
TempFileName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & " - EPCIB Uploading" & " " & Format(Now, "dd-mmm-yyyy hh-mm-ss AMPM")

With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
On Error Resume Next
.SendMail "", TempFileName, True
On Error GoTo 0
.Close SaveChanges:=False
End With

'Delete the file you have send
Kill TempFilePath & TempFileName & FileExtStr

ThisWorkbook.Worksheets("Report").Activate

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
Sub CheckLotusApp()
Dim strPathLotusNotes As String

On Error GoTo call_app
AppActivate "Lotus Notes"
On Error GoTo 0
Exit Sub

call_app:
strPathLotusNotes = "c:\lotus\notes\notes.exe"
If Dir(strPathLotusNotes) = "" Then
strPathLotusNotes = Application.GetOpenFilename(FileFilter:="Executables, *.exe", _
Title:="Notes.exe not found in C:\Lotus\Notes\.")
Shell strPathLotusNotes, vbNormalFocus
Else
Shell strPathLotusNotes, vbNormalFocus
End If
End Sub
[/VBA]

thanks..