Vbscript ошибка компиляции недопустимый знак

VBS

Сообщение «Ошибка: Недопустимый знак» при запуске скрипта

04.08.2016, 17:16. Показов 8598. Ответов 1

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

Const EmailFrom = “****@mail.ru”      ‘ от кого будет отправляться e-mail
Const EmailPassword = “123456″          ‘ пароль от e-mail
Const strSmtpServer = “ smtp.mail.ru”  ‘ smtp сервер
Const EmailTo = “****@mail.ru”        ‘ Кому будет отправляться e-mail
Set objEmail = CreateObject(”CDO.Message”)
 
objEmail.From = EmailFrom
objEmail.To = EmailTo
objEmail.Subject = “Здесь должен быть текст заголовка”
objEmail.Textbody = “Текста Вашего письма”
objEmail.Configuration.Fields.Item (”[url]http://schemas.microsoft.com/cdo/configuration/sendusing”[/url]) = 2
objEmail.Configuration.Fields.Item (”[url]http://schemas.microsoft.com/cdo/configuration/smtpauthenticate”[/url]) = 1
objEmail.Configuration.Fields.Item (”[url]http://schemas.microsoft.com/cdo/configuration/sendusername”[/url]) = EmailFrom
objEmail.Configuration.Fields.Item (”[url]http://schemas.microsoft.com/cdo/configuration/sendpassword”[/url]) = EmailPassword
objEmail.Configuration.Fields.Item (”[url]http://schemas.microsoft.com/cdo/configuration/smtpserver”[/url]) = strSmtpServer
objEmail.Configuration.Fields.Item (”[url]http://schemas.microsoft.com/cdo/configuration/smtpserverport”[/url]) = 25
objEmail.Configuration.Fields.Update
objEmail.Send
WScript.Quit

__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь

0

I got a VB SCRIPT off the internet to create new mail alerts for secondary email accounts in Outlook(2010).

Now this is the first part of the code, and when running Outlook, it gives me the following error:

«Compile Error: Invalid Character»

The debugger underlines the _ character in the following line: «sndPlaySoundA» _

'On the next line change the file name and path of the sound you want to play.'
Public Const SOUND_TO_PLAY = "C:WindowsMediaSpeech On.wav"
Public Const SND_ASYNC = &H1

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _ 
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Public Declare Function    MessageBox _
    Lib "User32" Alias "MessageBoxA" _
        (ByVal hWnd As Long, _
        ByVal lpText As String, _
        ByVal lpCaption As String, _
        ByVal wType As Long) _
    As Long


Function OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder
    ' Purpose: Opens an Outlook folder from a folder path.'
    ' Written: 4/24/2009'
    ' Author:  BlueDevilFan'
    ' Outlook: All versions'
    Dim arrFolders As Variant, _
        varFolder As Variant, _
        bolBeyondRoot As Boolean
    On Error Resume Next
    If strFolderPath = "" Then
        Set OpenOutlookFolder = Nothing
    Else
        Do While Left(strFolderPath, 1) = ""
            strFolderPath = Right(strFolderPath, Len(strFolderPath) - 1)
        Loop
        arrFolders = Split(strFolderPath, "")
        For Each varFolder In arrFolders
            Select Case bolBeyondRoot
                Case False
                    Set OpenOutlookFolder = Outlook.Session.Folders(varFolder)
                    bolBeyondRoot = True
                Case True
                    Set OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)
            End Select
            If Err.Number <> 0 Then
                Set OpenOutlookFolder = Nothing
                Exit For
            End If
        Next
    End If
    On Error GoTo 0
End Function

UPDATE: A new error has risen: (After I fixed the New line issue on line 1 after «sndPlaySoundA») as refered to by Adrian below)

«Compile Error Expected: End of statement» and the following word is highlighted: «Public»

UPDATE2: Next error:

Compile Error: User defined type not defined(For «Mailbox — supportdeskInbox»)

Dim objFM1 As FolderMonitor

Private Sub Application_Quit()
    Set objFM1 = Nothing
End Sub

Private Sub Application_Startup()
    Set objFM1 = New FolderMonitor
    'Edit the folder path on the next line as needed.'
    objFM1.FolderToWatch OpenOutlookFolder("Mailbox - supportdeskInbox")
    End Sub

I got a VB SCRIPT off the internet to create new mail alerts for secondary email accounts in Outlook(2010).

Now this is the first part of the code, and when running Outlook, it gives me the following error:

«Compile Error: Invalid Character»

The debugger underlines the _ character in the following line: «sndPlaySoundA» _

'On the next line change the file name and path of the sound you want to play.'
Public Const SOUND_TO_PLAY = "C:WindowsMediaSpeech On.wav"
Public Const SND_ASYNC = &H1

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _ 
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Public Declare Function    MessageBox _
    Lib "User32" Alias "MessageBoxA" _
        (ByVal hWnd As Long, _
        ByVal lpText As String, _
        ByVal lpCaption As String, _
        ByVal wType As Long) _
    As Long


Function OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder
    ' Purpose: Opens an Outlook folder from a folder path.'
    ' Written: 4/24/2009'
    ' Author:  BlueDevilFan'
    ' Outlook: All versions'
    Dim arrFolders As Variant, _
        varFolder As Variant, _
        bolBeyondRoot As Boolean
    On Error Resume Next
    If strFolderPath = "" Then
        Set OpenOutlookFolder = Nothing
    Else
        Do While Left(strFolderPath, 1) = ""
            strFolderPath = Right(strFolderPath, Len(strFolderPath) - 1)
        Loop
        arrFolders = Split(strFolderPath, "")
        For Each varFolder In arrFolders
            Select Case bolBeyondRoot
                Case False
                    Set OpenOutlookFolder = Outlook.Session.Folders(varFolder)
                    bolBeyondRoot = True
                Case True
                    Set OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)
            End Select
            If Err.Number <> 0 Then
                Set OpenOutlookFolder = Nothing
                Exit For
            End If
        Next
    End If
    On Error GoTo 0
End Function

UPDATE: A new error has risen: (After I fixed the New line issue on line 1 after «sndPlaySoundA») as refered to by Adrian below)

«Compile Error Expected: End of statement» and the following word is highlighted: «Public»

UPDATE2: Next error:

Compile Error: User defined type not defined(For «Mailbox — supportdeskInbox»)

Dim objFM1 As FolderMonitor

Private Sub Application_Quit()
    Set objFM1 = Nothing
End Sub

Private Sub Application_Startup()
    Set objFM1 = New FolderMonitor
    'Edit the folder path on the next line as needed.'
    objFM1.FolderToWatch OpenOutlookFolder("Mailbox - supportdeskInbox")
    End Sub