Exchange Server SQL Server communication Adding Appointment Entry

Tech-Archive recommends: Speed Up your PC by fixing your registry

From: Jordan Green (anonymous_at_discussions.microsoft.com)
Date: 08/24/04 

Date: Tue, 24 Aug 2004 01:03:32 -0700

I assume you are better of at one of the exchange groups.
Since i am not sure which one would fit best i did a
crosspost to the misc group.

Original posting can be found here:
http://communities.microsoft.com/NewsGroups/previewFrame.as
p?
ICP=GSS3&sLCID=US&sgroupURL=microsoft.public.sqlserver.dts&
sMessageID=%253Cb22001c488e2%2524f9e027e0%
2524a601280a@phx.gbl%253E

hth

------

Quote of posting follows:

Hello dts-world,

i am using sql server 2000 and would like to send an
outlook appointment / outlook meeting request to a exchange
server 5.5 mailling list (?distribution list).

Since I already have a DTS-Package which is able to send
e-mail, i hope that sending an appointment request should
not be to difficult either?!.

If there is another convenient way to send outlook
appointments from SQL Server (by using MAPI or CDO for
instance) i would be glad to hear about it.

Best Regards and thanks for reading this.

M. Gabriel

To hopefully help others unable to send an email with sql
server i include the vb code used to send that e-mail:

'**********************************************************
******
'Microsoft SQL Server 2000
'Visual Basic file generated for DTS Package
'File Name: D:\pms_30_04_04\sqlServer\sendMail.bas
'Package Name: SendMailFromDTS
'Package Description:
'Generated Date: 23.08.2004
'Generated Time: 08:50:46
'**********************************************************
******

Option Explicit
Public goPackageOld As New DTS.Package
Public goPackage As DTS.Package2
Private Sub Main()
        set goPackage = goPackageOld

        goPackage.Name = "SendMailFromDTS"
        goPackage.WriteCompletionStatusToNTEventLog = False
        goPackage.FailOnError = False
        goPackage.PackagePriorityClass = 2
        goPackage.MaxConcurrentSteps = 4
        goPackage.LineageOptions = 0
        goPackage.UseTransaction = True
        goPackage.TransactionIsolationLevel = 4096
        goPackage.AutoCommitTransaction = True
        goPackage.RepositoryMetadataOptions = 0
        goPackage.UseOLEDBServiceComponents = True
        goPackage.LogToSQLServer = False
        goPackage.LogServerFlags = 0
        goPackage.FailPackageOnLogFailure = False
        goPackage.ExplicitGlobalVariables = False
        goPackage.PackageType = 0

'----------------------------------------------------------
-----------------
' create package steps information
'----------------------------------------------------------
-----------------

Dim oStep as DTS.Step2
Dim oPrecConstraint as DTS.PrecedenceConstraint

'------------- a new step defined below

Set oStep = goPackage.Steps.New

        oStep.Name = "DTSStep_DTSSendMailTask_1"
        oStep.Description = "Send Mail with DTS-Package"
        oStep.ExecutionStatus = 4
        oStep.TaskName = "DTSTask_DTSSendMailTask_1"
        oStep.CommitSuccess = False
        oStep.RollbackFailure = False
        oStep.ScriptLanguage = "VBScript"
        oStep.AddGlobalVariables = True
        oStep.RelativePriority = 3
        oStep.CloseConnection = False
        oStep.ExecuteInMainThread = False
        oStep.IsPackageDSORowset = False
        oStep.JoinTransactionIfPresent = False
        oStep.DisableStep = False
        oStep.FailPackageOnError = False

goPackage.Steps.Add oStep
Set oStep = Nothing

'----------------------------------------------------------
-----------------
' create package tasks information
'----------------------------------------------------------
-----------------

'------------- call Task_Sub1 for task
DTSTask_DTSSendMailTask_1 (Send Mail with DTS-Package)
Call Task_Sub1( goPackage )

'----------------------------------------------------------
-----------------
' Save or execute package
'----------------------------------------------------------
-----------------

'goPackage.SaveToSQLServer "(local)", "sa", ""
goPackage.Execute
goPackage.Uninitialize
'to save a package instead of executing it, comment out the
executing package line above and uncomment the saving
package line
set goPackage = Nothing

set goPackageOld = Nothing

End Sub

'------------- define Task_Sub1 for task
DTSTask_DTSSendMailTask_1 (Send Mail with DTS-Package)
Public Sub Task_Sub1(ByVal goPackage As Object)

Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup

Dim oCustomTask1 As DTS.SendMailTask
Set oTask = goPackage.Tasks.New("DTSSendMailTask")
Set oCustomTask1 = oTask.CustomTask

        oCustomTask1.Name = "DTSTask_DTSSendMailTask_1"
        oCustomTask1.Description = "Send Mail with DTS-
Package"
        oCustomTask1.Profile = "Microsoft Outlook"
        oCustomTask1.ToLine = "your@mail.Ending"
        oCustomTask1.Subject = "DTS-Paket Mailversand"
        oCustomTask1.MessageText = "Send a mail from sql
Server to
a certain e-mail account"
        oCustomTask1.IsNTService = False
        oCustomTask1.SaveMailInSentItemsFolder = True

goPackage.Tasks.Add oTask
Set oCustomTask1 = Nothing
Set oTask = Nothing

End Sub

Relevant Pages