Forum



      Pete
     
      Mail an Tobit mit VBScript übergeben
      Hallo,

wir setzten hier ein Programm ein, bei dem ist es mögich über einen Wizzard ein Script zu erzeugen, um ein Mail aus dem Programm an Outlook zu übergeben. Da wir jetzt aber nicht Outlook sondern Tobit einsetzten möchte ich gerne das Programm so verändern, das eben Tobit angesprochen wird.

Könnt Ihr mir dabei helfen?

Hier kommt das Script wie es derzeit ist:

'(Declarations)
Option Explicit

Out_Mail
' starts Subroutine 

'converts Variant to String 
Function MakeString(myVal)
Dim retVal
	If (isnull(myVal) Or isempty(myVal)) Then
		retVal = Cstr("")
	Else
		retVal = Cstr(myVal)
	End If
	MakeString = retVal
End Function

'Mail
Sub Out_Mail
	Dim myApp

	Dim myMail		
	Dim stRecipient	
	Const olMailItem = 0
	
	' Check Mail -> if E-Mail Address exists!
	If ( MakeString( MESOFormel.Vars(45,25) = "" ) )Then
		Msgbox ( MESOFormel.GetString( 1480 ) )
		Exit Sub
	End If 

	Set myApp = CreateObject("Outlook.Application")
	Set myMail = myApp.CreateItem(olMailItem)
	stRecipient = MESOFormel.Vars(45,25)
	myMail.Body = vbCrlf & MakeString( MESOFormel.Vars(45,27) )

	myMail.Recipients.Add(stRecipient)
	myMail.Recipients.ResolveAll
	
	myMail.Display
	
	' Clean Up
	Set myApp = Nothing
	Set myMail = Nothing
End Sub

CWLScript.Stop 'stops Userform
'End of (Declarations)
       
      Mein Statement


Weitere Infos und Hilfestellungen bekommt
Ihr auch bei den folgenden Mailinglisten:
0 VB 6 - Mailingliste
0 VB.net - Mailingliste