Thema Datum  Von Nutzer Rating
Antwort
Rot E-Mail per Makro versenden unter Windows 8 funktioniert nicht mehr
 15.05.2014 11:26:16 Marco
NotSolved

Ansicht des Beitrags:
Von:
Marco		 Datum:
15.05.2014 11:26:16		 Views:
1041		 Rating:
     
Antwort:
  Ja
Thema:
E-Mail per Makro versenden unter Windows 8 funktioniert nicht mehr

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot E-Mail per Makro versenden unter Windows 8 funktioniert nicht mehr
 15.05.2014 11:26:16 Marco
NotSolved