Hallo zusammen
Ich habe ein Makro, mit dem ich die Arbeitsmappe im Anhang versende. Auf Windows 7 hat alles wunderbar funktioniert. Da wir schon einige Windows 8 User haben sollte das Makro auch für Win8 funktionieren. Beim testen ist mir aufgefallen, dass dies nicht der Fall ist.
Könnte mir jemand helfen an was das liegen könnte? Also Im Debug wird die Zeile ".To = Worksheets("Mail Adressen").Range("B13")" markiert.
Der bisherige Code, den ich hatte, sieht wie folgt aus:
Sub sende_Mail()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
AWS = ThisWorkbook.FullName
'hier wird die gesamte Mappe angehängt
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Worksheets("Mail Adressen").Range("B13")
'hier wird die Empfängermailadrese aus der Zelle B13 in "Mail Adressen" entzogen
.Subject = "--"
'hier wird der Betreff angegeben
.Attachments.Add AWS
.Body = "Sehr geehrte Damen und Herren," & vbCrLf & _
vbCrLf & "im Anhang befindet sich die das Dokument." & vbCrLf & _
vbCrLf & "Schöne Grüsse" & _
vbCrLf & ActiveSheet.Range("E11") & " " & ActiveSheet.Range("E12")
'hier wird der Text angegeben
.Display
'.Display=die Mail wird zuerst angezeigt und dann muss auf senden gedrückt werden
End With
Set OutApp = Nothing
Set Nachricht = Nothing
Worksheets("Übersicht").Select
End Sub
Danke und Gruss
Marco
|