Добавление функции электронной почты в поиск Excel

Question

У нас есть выставка каждый год.Я использовал вход через Интернет, который отправлял письма нашим торговым представителям, когда один из их клиентов появлялсяИтак, у меня есть список клиентов, которые подписались на выставку.Я хотел использовать это, чтобы проверить их. Поэтому я сделал его доступным для поиска.Это только 5 столбцов, номер билета, имя, фамилия, название компании, торговый представитель электронной почты.Я хочу, чтобы у меня была кнопка, которую я мог бы щелкнуть, чтобы пометить их как «проверенные», и отправить электронное письмо на адрес торгового представителя в этой ячейке, а также сделать тему списком из имени, фамилии и имени компании.Возможно ли что-нибудь из этого?Заранее спасибо.

Answer 1

1. Вот примерные предполагаемые данные по вопросу.

Ticket# First_  Last_   Company           Sales_Rep_Email   Status
        Name    Name    Name      
1001    James   Smith   Hana Toys          abc@gmail.com     
1002    Michael Smith   Alpha Marketing    bcd@gmail.com    
1003    Robert  Smith   Baj Finance        edf@gmail.com    
1004    Maria   Smith   Home Appliances    def@gmail.com    
1005    David   Smith   IkeaMart           fgi@gmail.com    
1006    Mary    Garcia  Fruit Beverages    abc@gmail.com     
1007    Raj     Kumar   ABC Consultants    bcd@gmail.com    
1008    Deepak  Tandon  Smith and Smith    edf@gmail.com    
1009    Hary    Smih    Veritas Limited    def@gmail.com     
1010    Arun    Sharma  Lovely Lingeries   fgi@gmail.com    

    "Note: Names and companies are fictitious and have no relevance to any name or company, if exists"

B.Эти данные ищутся и фильтруются согласно статусу.Отфильтрованные данные в этой форме.

Ticket# First_  Last_   Company_    Sales_Rep_      Status
        Name    Name    Name        Email
1003    Robert  Smith   Baj Finance edf@gmail.com   yes
1005    David   Smith   IkeaMart    fgi@gmail.com   yes

C.Кнопка управления формой была размещена, как показано на снимке, и к ней был прикреплен макрос Send_Email.

D.Этот код работает для меня.

  Sub Send_Email()
    Dim objOutlook As Object
    Dim objMail As Object
    Dim Recipients As String
    Dim CellReference As Integer
    Dim RowLimit As String
    Dim firstRow As Long
    Dim lastRow As Long
    Dim cell As Excel.Range
    Dim row As Long
    Dim substr As String


    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)

        CellReference = 5

      With ActiveSheet

        'Find the first and last index of the visible range.
        firstRow = .AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).row
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).row


        'Loop through all the rows between [firstRow] and [lastRow] established before.

        For row = firstRow To lastRow

            Set cell = .Cells(row, CellReference)
            substr = .Cells(row, 2).Value & "  " & .Cells(row, 3).Value & " , " & .Cells(row, 4).Value
            'checking if the row is hidden or visible.

            If Not cell.EntireRow.Hidden Then

                'Concatenate Recipients

                Recipients = Recipients & cell.Value & ";"
            End If

        Next row

    End With


    With objMail
        .To = Recipients
        .Subject = substr
        .Body = "Please follow up this customer"
        '.Display    'Uncomment it ,if you want to review email
        .Send
    End With

    Set objOutlook = Nothing
    Set objMail = Nothing

End Sub