Outlook - Groupwise
05.03.2008 12:06:45
êrriso
das folgende skript in einerer Excel-Datei hängt, bei betätigung der schaltfläche, die datei als anhang in eine mail, trägt die Empfänger und einen Text ein, speichert die Excel-Datei und schließet diese. Die Mail wird nicht sofort verschicht, sondern ist als Entwurf zu sehen. KANN MIR DAS BITTE JEMAND SO UMSCHREIBEN, DASS ES AUS GROUPWISE PASST?
Grüße T.K.
Sub Schaltfläche44_BeiKlick()
Dim Nachricht As Object, OutApp As Object
Set objGroupWise = CreateObject("Outlook.Session")
Dim AWS As String
AWS = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "XXX@XXX.com"
.CC = "YYY@XXX.com"
.Subject = "Freigabe neuer Stoff" & Name
.attachments.Add AWS
.Body = "Bitte ...." & vbCrLf & "Sollte ...."
.Display
End With
ActiveWorkbook.Save
Application.Quit
End Sub