Szia,
Kérjük, próbálja ki az alábbi kódot
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
Említette, hogy szeretne egy e-mailt küldeni a PM-nek, amelynek kezdőbetűi megegyeznek a befejezettként megjelölt sorban. Az e-mail címe ugyanabban a sorban van? A 6. sorban található kód segít megtalálni a projektmenedzser kezdőbetűit, módosíthatja, hogy megtalálja az e-mail címet.
Kérjük, módosítsa az 5. sorban a „kész” karakterláncot arra a tényleges karakterláncra, amelyet a munka befejezettnek jelöléséhez használ.
Vegye figyelembe, hogy az alábbi kódrészletet igényei szerint módosíthatja.
xMailBody = "Szia" & vbNewLine & vbNewLine & _
"Ez az 1. sor" & vbNewLine & _
"Ez a 2. sor"
On Error Resume Next
Az xOutMail segítségével
.To = xTo
.CC = ""
.BCC = ""
.Subject = "küldés cellateszt-teszt segítségével"
.Body = xMailBody
.Display 'or use
' .Küld
Vége
Ha bármilyen kérdése van, ne habozzon feltenni.
Amanda