Halo,
Silakan coba kode di bawah ini
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Range("c:c"), Target) Is Nothing Then Exit Sub
If Target.Value = "done" Then
Set xRg = Target.Offset(0, -1) 'Find email address
Call Mail_small_Text_Outlook(xRg.Value)
End If
End Sub
Sub Mail_small_Text_Outlook(ByVal xTo As String)
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = xTo
.CC = ""
.BCC = ""
.Subject = "send by cell value test"
.Body = xMailBody
.Display 'or use
' .Send
End With
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
Anda menyebutkan bahwa Anda ingin mengirim email ke PM yang inisialnya seperti pada baris yang sama yang ditandai sebagai selesai. Apakah alamat emailnya ada di baris yang sama? Kode di baris ke-6 membantu menemukan inisial manajer proyek, Anda dapat mengubahnya untuk membuatnya menemukan alamat email.
Harap ubah string "selesai" di baris ke-5 ke string aktual yang Anda gunakan untuk menandai pekerjaan selesai.
Perhatikan bahwa Anda dapat mengubah cuplikan di bawah ini sesuai kebutuhan Anda.
xMailBody = "Halo" & vbNewLine & vbNewLine & _
"Ini adalah baris 1" & vbNewLine & _
"Ini baris 2"
On Error Resume Next
Dengan xOutMail
.Ke = xTo
.CC = ""
.BCC = ""
.Subject = "kirim dengan tes nilai sel"
.Body = xMailBody
.Tampilkan 'atau gunakan
' .Kirim
Berakhir dengan
Jika Anda memiliki pertanyaan, jangan ragu untuk bertanya kepada saya.
Amanda