1. Welcome to Chandoo.org Forums. Short message for you

    Hi Guest,

    Thanks for joining Chandoo.org forums. We are here to make you awesome in Excel. Before you post your first question, please read this short introduction guide. When posting or responding to questions please remember our values at Chandoo.org are: Humility, Passion, Fun, Awesomeness, Simplicity, Sharing Remember that we have people here for whom English is not there first language and we need to allow for this in our dealings.

    Yours,
    Chandoo
  2. Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  3. When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

IBM Lotus email through excel macro

Discussion in 'VBA Macros' started by kamdardharmesh, Oct 9, 2018.

  1. kamdardharmesh

    kamdardharmesh New Member

    Messages:
    8
    I am trying to send IBM Lotus email through excel macro and I am using following code. However, while sending mail it goes to only first precipitant.

    one cell is having multiple email ids, which I have put as "To", however it picks up only first emailid and rest are not coming in proper form.

    Pls help.

    Code is as under.
    _______________

    Code (vb):
    Sub Email1()




        For i = 1 To 2
     
     
        Range("O1") = i
        Application.DisplayAlerts = False
        ' File

        Sheets("MacroData").Select
        Range("A7").Select
        ActiveSheet.Range("$A$7:$L$200000").AutoFilter Field:=1, Criteria1:="<>#N/A" _
            , Operator:=xlAnd
        Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Range("A7:L200000").Select
        Selection.SpecialCells(xlCellTypeVisible).Select
        Selection.Copy
        Workbooks.Add
        ActiveSheet.Paste
        Columns("A:L").Select
        Columns("A:L").EntireColumn.AutoFit
        Range("A1").Select
        ActiveWindow.DisplayGridlines = False
        Columns("A:A").Select
        Application.CutCopyMode = False
        Selection.Delete Shift:=xlToLeft
        Selection.End(xlUp).Select
        ActiveWorkbook.SaveAs Filename:= _
            "C:\Users\dharmesh4033\Desktop\Lotus_April_Macro\Data.xls", FileFormat:=xlExcel8, _
            Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
            CreateBackup:=False
        ActiveWindow.Close
        Sheets("MacroData").Select
    '    ActiveSheet.Previous.Select
       Range("A7:L7").Select


    'Part 2

    Dim oSess As Object
    Dim oDB As Object
    Dim oDoc As Object
    Dim oItem As Object
    Dim direct As Object
    Dim Var As Variant
    Dim flag As Boolean

    Set oSess = CreateObject("Notes.NotesSession")
    Set oDB = oSess.GETDATABASE("", "")
    Call oDB.OPENMAIL
    flag = True
    If Not (oDB.IsOpen) Then flag = oDB.Open("", "")

    If Not flag Then
    MsgBox "Can't open mail file: " & oDB.SERVER & " " & oDB.FILEPATH
    GoTo exit_SendAttachment
    End If
    On Error GoTo err_handler

    'Building Message
    Set oDoc = oDB.CREATEDOCUMENT
    Set oItem = oDoc.CREATERICHTEXTITEM("BODY")
    oDoc.Form = "Memo"
    'oDoc.Subject = "New Subject in here"
    oDoc.Subject = Range("S3").Value
    oDoc.sendto = Range("P1").Value
    'oDoc.sendCc = Range("P2").Value



    'oDoc.sendto = "dharmeshk@dcbbank.com"
    oDoc.body = "Dear All," & vbNewLine & _
                "" & vbNewLine & _
                "New year has already started and as we all have decided during the concall, this year belongs to Sarfaroshi ki Tamanna, this year belongs to exponential growth, this year belongs to customer engagement, this year belongs to CASA!" & vbNewLine & _
                "" & vbNewLine & _
                "To help you on CASA Growth & Customer engagement, we need to start the year with bang. We need to engage with our customers, so they not only maintain their CASA balance but increase the same." & vbNewLine & _
                "" & vbNewLine & _
                "Enclosed file contains list of customers, who are very important for your branch. These are crème customers of your branch. Some of them are keeping good balance with us, while many of them have reduced banking with us or lowered the value. Their past behaviour shows that they can give good amount of CASA to you (provided you engage with them). During next few months, we need to engage with these customers with various ways & means. You will invite these customers in future events (Dinner meets, Musical events, etc), which you will organise." & vbNewLine & _
                "" & vbNewLine & _
                "These customers are sent to you in April itself, so you can plan events for your branch. As and when you finish the events, pls write back to us with following details for each customer (1) Date of the event for which customer was invited, (2) Whether he has attended or not (3) Type of event." & vbNewLine & _
                "" & vbNewLine & _
                "" & vbNewLine & _
                "Pls make best of use enclosed list of customers. These customers can make or break your Goalsheet. This is just a starting, we will come back with many engagement activities, which will help you in growing your business. We all will make sure that, your branch grows CASA by 100 Cr at the end of the year! So let's start the year with Sarfaroshi ki Tamanna!" & vbNewLine & _
                "" & vbNewLine & _
                "" & vbNewLine & _
                "With Warm Regards," & vbNewLine & _
                "Dharmesh Kamdar" & vbNewLine & _
                "Head - Portfolio & Analytics, Retail Deposits" & vbNewLine & _
                "" & vbNewLine & _
                "" & vbNewLine & _
                ""


    oDoc.postdate = Date
    oDoc.SaveMessageOnSend = True

    'Attaching DATABASE
    Call oItem.EmbedObject(1454, "", "C:\Users\dharmesh4033\Desktop\Lotus_April_Macro\Data.xls")
    oDoc.visable = True
    'Sending Message
    oDoc.SEND False
    exit_SendAttachment:
    On Error Resume Next
    Set oSess = Nothing
    Set oDB = Nothing
    Set oDoc = Nothing
    Set oItem = Nothing
    'Done
    Exit Sub
    err_handler:
    If Err.Number = 7225 Then
    MsgBox "File doesn't exist"
    Else
    MsgBox Err.Number & " " & Err.Description
    End If
    On Error GoTo exit_SendAttachment

    '----- This is 2nd Part

    'StopMacro:
    '  With Application
     '      .ScreenUpdating = True
     '    .EnableEvents = True
       'End With

    '    ActiveWorkbook.EnvelopeVisible = False


        Next i
        Sheets("MacroData").Select
    '    ActiveSheet.Previous.Select
       Range("A7:L7").Select
     
        Application.DisplayAlerts = True


    End Sub
    --------------------------------------------------------------------------------------------
    MOD EDIT: Added code tag.
    Last edited by a moderator: Oct 9, 2018
  2. Chihiro

    Chihiro Excel Ninja

    Messages:
    5,113
    I don't think that there are many of us that use Lotus in this forum. You may have better luck asking in Lotus forum.

    Also, please use code tag (<> button) to post code. It makes it much easier for others to read code. I have edited your post to reflect this for now.

    Having said that, what exactly is contained in P1? Is email strung together by "," or ";"? I'd recommend posting how exactly your workbook is set up (along with some dummy data).
  3. kamdardharmesh

    kamdardharmesh New Member

    Messages:
    8
    Thanks, will take care next time.

    In cell P1, have kept emailIds separated by ",".
    Last edited by a moderator: Oct 11, 2018
  4. Chihiro

    Chihiro Excel Ninja

    Messages:
    5,113
    Then try using semicolon. It is often used to separate email addresses in mail clients.

Share This Page