A
Anonymous
While using Application.MailSend in a macro, i am getting the error :
Project requires Outlook or another MAPI-complaint electronic mail program.
We have Lotus notes e-mail system and we do not use Outlook. Can i write the
code in a macro which will work for Lotus notes e-mailing system? If yes how
can i do that. Please refer the code snippet below:
----------------------------------------------------------
Private Sub SetNumber13(ByVal pj As Project)
Dim wTask As Task
If pj.ProjectSummaryTask.BCWS = 0 Then
pj.ProjectSummaryTask.Number13 = 1
Else
pj.ProjectSummaryTask.Number13 = pj.ProjectSummaryTask.SPI
If pj.ProjectSummaryTask.Flag1 = True Then
If pj.ProjectSummaryTask.Number13 <>
pj.ProjectSummaryTask.Number16 Then
Application.MailSend To:="Rajesh Sharma,Anuya Sheorey", _
Subject:="Schedule indicator changed", _
Body:="Schedule indicator changed", _
IncludeDocument:=False, _
ReturnReceipt:=True
pj.ProjectSummaryTask.Flag1 = False
End If
End If
End If
For Each wTask In pj.Tasks
If wTask.Milestone Then
wTask.Number13 = -1
Else
If wTask.BCWS = 0 Then
wTask.Number13 = 1
Else
wTask.Number13 = wTask.SPI
End If
End If
Next
End Sub
Project requires Outlook or another MAPI-complaint electronic mail program.
We have Lotus notes e-mail system and we do not use Outlook. Can i write the
code in a macro which will work for Lotus notes e-mailing system? If yes how
can i do that. Please refer the code snippet below:
----------------------------------------------------------
Private Sub SetNumber13(ByVal pj As Project)
Dim wTask As Task
If pj.ProjectSummaryTask.BCWS = 0 Then
pj.ProjectSummaryTask.Number13 = 1
Else
pj.ProjectSummaryTask.Number13 = pj.ProjectSummaryTask.SPI
If pj.ProjectSummaryTask.Flag1 = True Then
If pj.ProjectSummaryTask.Number13 <>
pj.ProjectSummaryTask.Number16 Then
Application.MailSend To:="Rajesh Sharma,Anuya Sheorey", _
Subject:="Schedule indicator changed", _
Body:="Schedule indicator changed", _
IncludeDocument:=False, _
ReturnReceipt:=True
pj.ProjectSummaryTask.Flag1 = False
End If
End If
End If
For Each wTask In pj.Tasks
If wTask.Milestone Then
wTask.Number13 = -1
Else
If wTask.BCWS = 0 Then
wTask.Number13 = 1
Else
wTask.Number13 = wTask.SPI
End If
End If
Next
End Sub