วิธีการตอบกลับด้วยแม่แบบเริ่มต้นในขณะที่แทนที่ค่าชื่อ

ฉันสงสัยว่ามันเป็นไปได้หรือไม่? ฉันมีอีเมลที่มาพร้อมกับฉันต้องตอบกลับด้วยข้อความต่อไปนี้

Hello NAME,

Your request has been completed.

Thank you.

มีวิธีใดที่ฉันจะทำให้กระบวนการนี้เป็นอัตโนมัติด้วยการคลิกปุ่ม? นอกจากนี้ยังมีวิธีที่ฉันจะเติมชื่อด้วยชื่อผู้ส่งหรือไม่ ขณะนี้ชื่อผู้ส่งปรากฏในฟิลด์ "จาก" ดังนี้นามสกุล, ชื่อ ฉันต้องการแทนที่ตัวแปร NAME ของข้อความของฉันเป็นค่า FirstName

ฉันสงสัยว่าเป็นไปได้กับ Outlook 2003 หรือไม่

ความช่วยเหลือใด ๆ ที่จะได้รับการชื่นชมอย่างมาก.

ขอขอบคุณ.

— BaconJuice
แหล่งที่มา

บันทึกไฟล์เทมเพลตด้วยข้อความของคุณ ในรหัสจะถูกบันทึกไว้ในไดรฟ์ C และชื่อ NamePlaceholder.oft เปลี่ยนได้ตามต้องการ

เปิดคำขอก่อนเรียกใช้รหัส

Sub CreateReplyFromTemplate()

Dim currItem  As Outlook.mailItem
Dim currItemReply  As Outlook.mailItem
Dim myItem As Outlook.mailItem

Dim commaPositionRight As Long
Dim Firstname As String

Set currItem = ActiveInspector.currentItem
Set currItemReply = currItem.Reply
Set myItem = Application.CreateItemFromTemplate("C:\NamePlaceholder.oft")

myItem.To = currItemReply.To
commaPositionRight = InStrRev(myItem.To, ",")
Firstname = Right(myItem.To, commaPositionRight)

myItem.Subject = currItem.Subject

' if "RE:" or "FW:" on the request,
'  and the client replies there would be an extra "RE:" or "FW:"
If InStr(myItem.Subject, "RE: ") = 1 Or InStr(myItem.Subject, "FW: ") = 1 Then
    myItem.Subject = Right(myItem.Subject, Len(myItem.Subject) - 4)
End If

myItem.HTMLBody = myItem.HTMLBody & currItemReply.HTMLBody
myItem.HTMLBody = Replace(myItem.HTMLBody, "NAME", Firstname)

currItemReply.Close olDiscard
currItem.Close olDiscard

myItem.Display

Set currItemReply = Nothing
Set myItem = Nothing
Set currItem = Nothing

End Sub

หากคุณไม่คุ้นเคยกับ VBA ดูที่นี่http://www.slipstick.com/developer/how-to-use-outlooks-vba-editor/

— Niton
แหล่งที่มา