Meddelande

Minska
No announcement yet.

CDO & avs

Minska
X
 
  • Filter
  • Klockan
  • Show
Clear All
new posts

  • CDO & avs

    Jag har en mail funktion från en sida enligt nedan. Har gått bra i många år men nu fungerar inte EmailSender längre men allt skickas normalt. Som avsändare på mailen står det nu "derived from envelope by postmaster@pne.skanova.net" istället. Nån som har nån ide på vad som skett?

    Kod:
    EmailServer="smtprelay1.telia.com"
    EmailSubject = "Info"
    EmailSender = "info@sidan.se"
    EmailAddress = email
    EmailText = message 
    	
        
    Set objMessage = CreateObject("CDO.Message")
    	
    objMessage.Subject = EmailSubject
    objMessage.Sender = EmailSender
    objMessage.To = EmailAddress
    objMessage.TextBody = EmailText & vbCRLF & vbCRLF & vbCRLF &"Info från oss här"
Working...
X