Code ändern von Outlook in GroupWise
09.05.2016 11:21:52
Outlook
Ich habe mal wieder ein Problem :(
und zwar habe ich ein Code mit eurer Hilfe bekommen nun hat meine Firma umgestellt von Outlook auf GroupWise wie muss ich den Code ändern das es auch weiter hin funktioniert
vielen dank schon mal für eure Hilfe
Hier der Code den ich zur Zeit verwende
Private Sub CommandButton9_Click()
Dim objOL As Object
Dim objMail As Object
Dim Bezeichnung As String
Dim EMailan As String
Dim strName As String
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
Bezeichnung = ActiveWorkbook.Name
EMailan = "e-mail-adresse"
strName = ActiveWorkbook.Path & "\Bestand " _
& Format(Date, "DD.MM.YYYY") & ".xls"
Application.ScreenUpdating = False
Sheets("Senden").Copy
ActiveSheet.Name = "Senden"
With ActiveSheet
.Name = "Senden"
.UsedRange.Copy
Cells(1).PasteSpecial xlPasteValues
End With
ActiveWorkbook.SaveAs Filename:=strName, FileFormat:=xlExcel8
With objMail
.To = EMailan
.Subject = Bezeichnung
.Body = "Bestand"
.Attachments.Add ActiveWorkbook.FullName
.Send ' Display für Indirektversand oder .Send für Direktversand
End With
ActiveWorkbook.Close
Kill (strName)
MsgBox ("Tabelle wurde erfolgreich versendet.")
Application.GoTo Sheets("Senden").Range("A1")
Application.ScreenUpdating = True
ThisWorkbook.Activate
Worksheets("Haupttabelle").Activate
Unload Me
End Sub
Anzeige