QTP Forums

Hi ,

The following function works fine in QTP but when i paste it in .vbs file it throws mismatch error and says the .vbs file has syntax errors.
How to run .vbs file
Public Function SendMail(SendTo,SendCC,Subject,Body,Attachment)
Dim olApp
Dim olNs
Dim olMail
Set olApp = GetObject(, "Outlook.Application")
On Error GoTo 0
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = SendTo
.CC = SendCC
.Subject = Subject
.Body = Body
.Attachments.Add(Attachment)
.Display
.Send
End With
Set olMail = Nothing
Set olApp = Nothing
End Function

Rashmi Wrote:Hi ,

The following function works fine in QTP but when i paste it in .vbs file it throws mismatch error and says the .vbs file has syntax errors.
How to run .vbs file
Public Function SendMail(SendTo,SendCC,Subject,Body,Attachment)
Dim olApp
Dim olNs
Dim olMail
Set olApp = GetObject(, "Outlook.Application")
On Error GoTo 0
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = SendTo
.CC = SendCC
.Subject = Subject
.Body = Body
.Attachments.Add(Attachment)
.Display
.Send
End With
Set olMail = Nothing
Set olApp = Nothing
End Function

Hi,

Use the below function it works fine...

Function SendMail(SendTo, SendCC ,Subject, Body, Attachment)
Set ol =CreateObject("Outlook.Application")
Set Mail=ol.CreateItem(0)
Mail.to=SendTo
mail.cc = SendCC
Mail.Subject=Subject
Mail.Body=Body
If (Attachment <> "") Then
Mail.Attachments.Add(Attachment)
End If
Mail.Send
ol.Quit
Set Mail = Nothing
Set ol = Nothing
End Function

Thanks
-Ashok

Hi,

Code:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

  Dim strSubject As String

  strSubject = Item.Subject

  If Len(strSubject) = 0 Then

      Prompt$ = "Subject is Empty. Are you sure you want to send the Mail?"

      If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check for Subject") = vbNo Then

              Cancel = True

      End If

  End If

End Sub

Sub GetFormPassword()

    Dim objApp As Application

    Dim objInsp As Inspector

    Dim objFD As FormDescription

    Set objApp = CreateObject("Outlook.Application")

    Set objInsp = objApp.ActiveInspector

    If Not objInsp Is Nothing Then

        Set objFD = objInsp.CurrentItem.FormDescription

        MsgBox _

          Prompt:="The password for the " & _

                  Chr(34) & objFD.MessageClass & _

                  Chr(34) & " form is:" & _

                  vbCrLf & vbCrLf & objFD.Password, _

          Title:="Get Form Password"

    Else

        MsgBox _

          Prompt:="Please open an item using " & _

                  "the desired form before you " & _

                  "run the GetFormPassword macro.", _

          Title:="Get Form Password"

    End If

End Sub

Private Sub Application_NewMail()

    Dim m As MailItem

    Dim f As MAPIFolder

    Dim a As Attachment

    Set m = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items.GetLast

    Debug.Print m.Subject

    For Each a In m.Attachments

        a.SaveAsFile "C:\Documents and Settings\206954\My Documents\Mails\Attachments\" & a.DisplayName

    Next

End Sub

Code:

Function TestSendMail(SendTo,Subject, Body, Attachment)

   Set ol=CreateObject("Outlook.Application")

   Set Mail=ol.CreateItem(0)

   Mail.to=SendTo

   Mail.Subject=Subject

   Mail.Body=Body

   If (Attachment <> "") Then

       Mail.Attachments.Add(Attachment)

   End If

   Mail.Send

   ol.Quit

   Set Mail = Nothing

   Set ol = Nothing

End Function

Or

Happy Tester,
Byzoor,
9597711082

Rashmi

ashokghali

byzoor