Sepa Vorabinformation per eMail direkt in excel versenden

[Daniel Albert]

Hallo,

ich bekomme mit Zeilenumbruch und Leerzeilen in dem Text nicht weiter. Alles was ich Internet finde bezieht sich auf eine SmgBox und nicht auf eine Variable oder liegt das Problem bei der Übertragung an Outlook?

Anbei die neue Datei mit dem Makrop in Modul 6

[schauan]

Hallo Daniel,

hab jetzt nicht in die Datei geschaut - der Zeilenumbruch ist vblf und nicht vbNewLine. Eventuell ist es das schon ...

[Daniel Albert]

Servus,

funktioniert leider nicht

[schauan]

Hallo Daniel,

den Hyperlink nimmst Du ja wirklich als Hyperlink. Ich wüsste jetzt gar nicht, dass oder falls ja, wie man da einen Zeilenumbruch rein codiert bekommt Mit der herkömmlichen Variante (Outlook-Objekt usw.) wäre es möglich ...

[Daniel Albert]

Hallo, habe ich aus diesem Forum. Thema Zeilenumbruch habe ich klären können. Jetzt muss ich vorerst andere Punkte noch hinbekommen. Melde mcih sobald ich diese geklärt habe.

[Rabe]

Hi Daniel,

funktioniert leider nicht

ich verschicke Mails mit diesem Code, statt der Datei könnte auch eine PDF verschickt werden oder ein Link.

Sub Excel_Serial_Mail()
    Dim MyOutApp As Object, MyMessage As Object
    Dim i As Long
    Dim SavePath As String
    Dim AWS As String
    SavePath = "D:" '"E:\Eigene Dateien" 
    'Kopiert aktuelles Sheet in eine neue Mappe 
    'welche nur diese Tabelle enthält 
    ActiveSheet.Copy
    'Speichert die Datei unter dem Tabellennamen und einem Zeitstempel 
    ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & "_" & Format(Now, "ddmmyyyy_hhmm") & ".xls"
    'Mappenname wird an Variable übergeben 
    'und anschliessend gleich geschlossen 
    With ActiveWorkbook
        AWS = .FullName
        .Close
    End With
    'Start der Sendeschleife an 66 Empfänger 
    For i = 5 To 70
        Set MyOutApp = CreateObject("Outlook.Application")
        Set MyMessage = MyOutApp.CreateItem(0)
        With MyMessage
            'Die Empfänger stehen in Spalte AO ab Zeile 5 
            .To = Cells(i, 41) 'E-Mail Adressen in Spalte AO (41) 
            'Der Betreff in Spalte B 
            .Subject = "Darum geht es" '"Betreffzeile" 
            'Der zu sendende Text 
            'Der Text wird ohne Formatierung übernommen 
            .body = "Der Text, der für alle angezeigt werden soll" & vbCrLf & _
            "mit einer neuen Zeile!"
            'Hier wird die temporär gespeicherte Datei als Attachment zugefügt 
            .Attachments.Add AWS
            'Hier wird die Mail angezeigt 
            '.Display 
            'Hier wird die Mail gleich in den Postausgang gelegt 
            .Send
        End With
        'Objectvariablen leeren 
        Set MyOutApp = Nothing 'CreateObject("Outlook.Application") 
        Set MyMessage = Nothing 'MyOutApp.CreateItem(0) 
        'Sendepause einschalten 
        'Outlook kann die Aufträge nicht schnell genug verarbeiten 
        Application.Wait (Now + TimeValue("0:00:05"))
    Next i
End Sub

Sub Excel_Serial_Mail2()
    Dim MyOutApp As Object, MyMessage As Object
    Dim i As Long
    'Start der Sendeschleife an 10 Empfänger 
    For i = 1 To 10
        Set MyOutApp = CreateObject("Outlook.Application")
        Set MyMessage = MyOutApp.CreateItem(0)
        With MyMessage
            'Die Empfänger stehen in Spalte A ab Zeile 1 
            .To = Cells(i, 1) 'E-Mail Adresse 
            'Der Betreff in Spalte B 
            .Subject = Cells(i, 2) '"Betreffzeil" 
            'Der zu sendende Text in Spalte C 
            'Maximal 1024 Zeichen 
            'Der Text wird ohne Formatierung übernommen 
            .body = Cells(i, 3)
            'Hier wird die Mail angezeigt 
            '.Display 
            'Hier wird die Mail gleich in den Postausgang gelegt 
            .Send
        End With
        'Objectvariablen leeren 
        Set MyOutApp = Nothing 'CreateObject("Outlook.Application") 
        Set MyMessage = Nothing 'MyOutApp.CreateItem(0) 
        'Sendepause einschalten 
        'Outlook kann die Aufträge nicht schnell genug verarbeiten 
        Application.Wait (Now + TimeValue("0:00:05"))
    Next i
End Sub

[Daniel Albert]

Hallo Ralf, sorry habe vor lauter Weihnachtsstreß vergessen den Thread vorerst auf Erledigt zu setzen. Ich habe die Codeanfrage in mehrere Threads aufgeteilt und dann die Codefragmente zu einem gebastelt. Am 2.01.2017 nutze ich es zum ersten mal richtig. Bis jetzt haben die Testläufe gut funktioniert.

SNB hat auch noch einen anderen Vorschlag, mal schauen wie der jetzige läuft.

Danke dir für deine Hilfe auch bei den anderen Problemen. Dir und deiner Familie eine schöne Weihnachtszeit

[Daniel Albert]

Hallo, ich habe jetzt noch ein Problem.

Es kommt die Sicherheitswarnung das auf Outlook zugegriffen wird. Das wäre kein Problem, aber ich muss jede versendete eMail zustimmen, sprich 66 mal. Ich habe in Outlook 2016 keinen Punkt um dies abzuschalten. Gibt es dafür eine Lösung ?

[mumpel]

Hallo!

Das kannst Du über das Sicherheitscenter (Trustcenter) in Outlook regeln (ab Outlook 2007). Voraussetzung ist ein kompatibler und aktueller Virenscanner. Im Trustcenter unter "Programmgesteuerter Zugriff" die erste Option wählen. Outlook muss (eventuell) als Administrator ausgeführt werden um Einstellungen im Trustcenter vornehmen zu können.

Gruß, René

[Daniel Albert]

Komisch das habe ich schon so eingestellt. Ich nutze Antivir und der geht dann Offline komischerweise.

   

Dauerhaft abschalten wollte ich es eigentlich nicht