Excel Forum

Code: Select all

 Sub Send_email_request_approve()
  
        Dim EmailApp As Outlook.Application
        Dim Source As String
        Set EmailApp = New Outlook.Application
        
        Dim EmailItem As Outlook.MailItem
        Set EmailItem = EmailApp.CreateItem(olMailItem)
        
        EmailItem.To = "AAA@th.com"

        EmailItem.Subject = "Test send email click approve and request a read receipt."
                
        EmailItem.HTMLBody = "Dear all," & "<br>" & _
                        "<br>" & "Please review and approve " & _
                        "<br>" & _
                        "<br>" & _
                        "<br>" & _
                        "Best regards," & "<br>" & _
                        "BBB."
  
        Source = ThisWorkbook.FullName

        With outmail
        .ReadReceiptRequested = True
        End With
            
        EmailItem.Send

End Sub
 

Code: Select all

 With outmail
        .ReadReceiptRequested = True
        End With  

Code: Select all

'Other code
With EmailItem
    .ReadReceiptRequested = True
End With
'Other code