Oprettet man. d. 03. september 2012 kl. 13:21:04

200 point uddelt | 1 kommentar

angelenglen (8.147 point. Point ude: 200)

Powershell til ASP

Jeg har nedenstående powershell-script, hvor jeg prøver at få det "oversat" til vb-script der sender via CDO.

Indtil nu får jeg dog besked tilbage om at client is not authenticated...

Nogen der har mere held end jeg?

Her er scriptet, længere nede er mit forsøg på et VB-script:

$EmailFrom = "<afsender adresse>"
$EmailTo = "<modtager adresse>" 
$Subject = "INDSÆT EMNE HER"
$Body = "INDSÆT BODY HER" 
$SMTPServer = "<server ip>" 
$SMTPClient = New-Object Net.Mail.SmtpClient($SmtpServer, 587) 
#$SMTPClient.EnableSsl = $true 
$SMTPClient.Credentials = New-Object System.Net.NetworkCredential("<brugernavn>", "<kodeord>"); 
$SMTPClient.Send($EmailFrom, $EmailTo, $Subject, $Body)

Function SendMail(strTo, strFrom, strSubject, strMessage, strAccountID, strPassword, strSMTPServer, strSMTPPort, strAuthMethod)
    Set ObjSendMail = CreateObject("CDO.Message") 
        On Error Resume Next
            ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/ (...)) = 2 ' 2 = Send the message using the network (SMTP over the network).
            ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/ (...)) = strSMTPServer
            ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/ (...)) = strSMTPPort
            ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/ (...)) = False 'Use SSL for the connection (True or False)
            ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/ (...)) = 10
            ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/ (...)) = strAuthMethod ' 1 = basic (clear-text) authentication
            ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/ (...)) = strAccountID
            ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/ (...)) = strPassword     
            ObjSendMail.Configuration.Fields.Update
            ObjSendMail.To = strTo
            ObjSendMail.Subject = strSubject
            ObjSendMail.From = strFrom
            ObjSendMail.HTMLBody = strMessage
            ObjSendMail.TextBody = strMessage
            ObjSendMail.Send
        If Err Then Response.Write vbCrLf & vbCrLf & "<h1>SendMail Failed</h1>Error code: <strong>" & Err.Number & "</strong>" & vbCrLf & "Error description: " & vbCrLf & "<strong>" & Err.Description & "</strong>"
        On Error Goto 0
    Set ObjSendMail = Nothing
End Function