Solved

Mail to selected names from a field...

Posted on 2004-04-13
5
219 Views
Last Modified: 2013-12-18
I have a field called "Names". This is a dialog list with multi values enabled.Now I want a button or a action which can send a mail with desired subject and body to the selected user from the Name field.

Pls help.
0
Comment
Question by:Prashantbhatnagar
5 Comments
 
LVL 24

Accepted Solution

by:
HemanthaKumar earned 50 total points
ID: 10814752
Use @MailSend function

Syntax

@MailSend( sendTo ; copyTo ; blindCopyTo ; subject ; remark ; bodyFields ; [ flags ] )


~Hemanth
0
 
LVL 3

Expert Comment

by:xp_commander
ID: 10819870
Just incase , you need a sample code :-

Subject := "Subject goes here";
Message := "Body goes here";
@MailSend(Names; ""; "" ;Subject; Message; "");
0
 
LVL 19

Expert Comment

by:madheeswar
ID: 10820139
A sample code in Lotus Script:
Sub SendMailToRequestFromAdmin1
      Print "Submitting mail to approving person ..."
      Dim ws As New notesuiworkspace
      Dim uidoc As notesuidocument
      Dim doc As notesdocument
      Dim item As NotesItem
      Dim numvalues As Integer
      Dim session As New notessession
      Dim db As notesdatabase
      Dim maildoc As notesdocument
      Dim Body As NotesRichTextItem
      Dim hard As String
      
      Set db=session.currentdatabase
      Set uidoc=ws.currentdocument
      Set doc=uidoc.document
      tmpamount=Cstr(doc.grandtotal_n(0))
      
      'SEND MAIL TO DEPT HEAD.
      
      Dim item1 As notesitem
      Set item1 =doc.getfirstitem("staffname_x")
'      For y = 0 To Ubound(item1.values)
      Set maildoc = New NotesDocument( db )
      maildoc.Form = "Memo"
      If (uidoc.Fieldgettext("status_x")="Approved") Then
            maildoc.Subject ="Payment Voucher - Approved"
            Set Body=New NotesRichTextItem(maildoc,"Body")
            message="Your Payment Voucher for the items requested for the amount "+tmpamount+" has been approved. Thank you."
      End If
      If doc.status_x(0)="Pending" Then
            maildoc.Subject ="New Payment Voucher"
            Set Body=New NotesRichTextItem(maildoc,"Body")
            message="Please check the items requested to this month to your department for the amount "+tmpamount+". Thank you."
      End If
      If (uidoc.Fieldgettext("status_x")="Rejected") Then
            maildoc.Subject ="Payment Voucher - Rejected"
            Set Body=New NotesRichTextItem(maildoc,"Body")
            message="Your Payment Voucher for the items requested for the amount "+tmpamount+" has been rejected. Please make necessary amendmends and re-submit again.  Thank you."
      End If
      Call Body.AppendText(message)
      Call Body.AddNewLine(2)
      message1="Click here to open the form=========>>"
      Call Body.AppendText(message1)
      Call Body.AppendDocLink(doc,"Please click this link to open the document")
      Call Body.AddNewLine(2)
      mess="(This is an auto-generated email. You may delete this after review.)"
      Call Body.AppendText(mess)
      For y = 0 To Ubound(item1.values)
            hard=item1.values(y)+"@stoneforest.com.sg"
            Print "Submitted to : "+item1.values(y)
            
            Call maildoc.Send( True, hard)
      Next
      
      
End Sub
0
 

Author Comment

by:Prashantbhatnagar
ID: 10822169
Hi Hemanth,

Thanks a lot ...I never thought answer could be so simple..
Regards
0
 
LVL 24

Expert Comment

by:HemanthaKumar
ID: 10823647
That is why we are all here.. Keep It Simple !!
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Lotus Notes Mail Database issues 2 891
Lotus Notes 8.5 1 140
Only send email if contains "abcd" 3 144
Counting documents in a Domino View 3 59
This is an old article, please see an updated version of this article, located here: http://www.experts-exchange.com/articles/23619/Notes-8-5x-Windows-7-Notes-info-and-tips.html
IBM Notes offer Encryption feature using which the user can secure its NSF emails or entire database easily. In this section we will discuss about the process to Encrypt Incoming and Outgoing Mails in depth.
Get a first impression of how PRTG looks and learn how it works.   This video is a short introduction to PRTG, as an initial overview or as a quick start for new PRTG users.
When you create an app prototype with Adobe XD, you can insert system screens -- sharing or Control Center, for example -- with just a few clicks. This video shows you how. You can take the full course on Experts Exchange at http://bit.ly/XDcourse.

948 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now