NetTalk Central
NetTalk E-Mail => E-Mail - Ask For Help => Topic started by: PaulMacFarlane on May 30, 2014, 08:12:59 AM
-
I think it was a change in version of NT, but the following code no longer gets the correct email address from the message.
The fields do not seem to deliver any values anymore....
Does anyone have an example of processing bounce messages?
Thanks.
Paul
SaveMessage routine
! Save the message
rcvd:Subject = clip(GetMsg.Subject)
rcvd:account_address = GetMsg.user
rcvd:DeliveryReceiptTo = clip(GetMsg.DeliveryReceiptTo)
rcvd:DSOriginalRecipient = clip(GetMsg.DeliveryStatusOriginalRecipient)
rcvd:DSFinalRecipient = clip(GetMsg.DeliveryStatusFinalRecipient)
rcvd:DSAction = clip(GetMsg.DeliveryStatusAction)
rcvd:DSStatus = clip(GetMsg.DeliveryStatusStatus)
rcvd:DSRemoteMTA = clip(GetMsg.DeliveryStatusRemoteMTA)
rcvd:DSDiagCode = clip(GetMsg.DeliveryStatusDiagnosticCode)
rcvd:DSLastAttemptDate = clip(GetMsg.DeliveryStatusLastAttemptDate)
rcvd:MessageID = clip(GetMsg.MessageID)
rcvd:WholeMsg = clip(GetMsg.WholeMessage[1:GetMsg.WholeMessageLen])
rcvd:ToAddress = clip(GetMsg.ToList)
rcvd:FromAddress = clip(GetMsg.From)
TempDateStr = GetMsg.sentdate
TempDateStr = sub(TempDateStr,6,11)
TempTimeStr = GetMsg.sentdate
TempTimeStr = sub(TempTimeStr,len(TempTimeStr)-18,8)
rcvd:rcvDate_DATE = deformat(TempDateStr,@D8) ! today()
rcvd:rcvDate_TIME = deformat(TempTimeStr,@T4)
Access:RcvdeMail.Insert()
-
Nobody's doing this? ::)
-
have you checked out the NetDemo app? that has an example of an "email receive" window, which gets information from the incoming emails. That's where I'd likely start to debug what's going on here.
cheers
Bruce