Email mit vba aus Excel + Text aus Word

Hallo zusammen,

ich bin gerade dabei VBA zu lernen und würde gerne testen, wie man mit Outlook automatisch Emails versenden kann. Hierzu habe ich entsprechende Empfänger (Adresese, Vorname, Nachname und Betreff) in Excel. Einen entsprechenden Email-Text (inkl. Absatz und Textformatierung) habe ich in Word vorliegen. Kann man das irgendwie kombinieren?

Ich habe im Netz bislang nur Lösungen gefunden, wie man Emails versenden kann, bei denen alles in Excel oder dem VBA vorliegt.

z.B. diese hier:

Sub Excel_Serial_Mail()
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
Microsoft Word, Microsoft Excel, E-Mail, VBA
Text von je drei Moderationskarten auf eine Seite A4 Hochformat drucken – aus Word

Hallo, kluge Köpfe, meiner raucht – aber 5 Std. mit eigenen Versuchen und Suche im Netz haben nichts gebracht:

Situation: Derzeit erarbeite ich eine Stichwortfolge für einen Vortrag (- in Word, aber mit Excel habe ich das Problem auch nicht sinnvoll lösen können). Diese Stichwortfolge will ich in bestimmter Weise formatieren und dann auf „A4 (Hochformat)“ ausdrucken, mit folgender Besonderheit:

Die 200g-Bögen, auf die ich drucken will, sind ganz normal „A4 Hochformat“ (d.h.: 21 cm breit, 29,7 cm hoch), und in drei exakt gleichgroße Moderationskarten vorgefalzt/perforiert, (man nennt das wohl A4 lang, jedenfalls ist) jede Karte 21 cm breit, und 9,9 cm hoch. Ich glaube also, dass ich eine von folgenden zwei Möglichkeiten suche, und bin natürlich für pfiffige Alternativen offen:

1 (Favorit): Ich formatiere mir in Word eine Seite aus „A4 Hochformat“ auf die Höhe von 9,9 cm runter, d.h. ohne Ränder oben und unten, damit ich die Stichworte hintereinander in beliebiger Schriftgröße aufschreiben kann, und dabei schon am Bildschirm sehe, welche Stichworte zusammen auf einer Karte sind, wo ich zusätzliche Seitenumbrüche reinbringen sollte, etc. Wenn Word jetzt zu überzeugen wäre, je drei dieser Seiten untereinander auf EIN Blatt zu drucken, wäre das Problem gelöst (zwei, vier, und weitere geradzahlige Seitenmengen in vorgegebenen Anordnungen auszudrucken, bietet das Programm ja an, aber nicht drei). Der Vorteil dieser Variante: Ich könnte die Seitenzahl nutzen, um die Karten durchnummerieren zu lassen (- falls sie mal zu Boden gehen, und ich sie neu ordnen muss). PROBLEM: Word bietet mir keine Option „3 Seiten auf ein Blatt“ an, mit der ich die 3 Seiten untereinander auf das EINE A4-Blatt drucken kann. (PowerPoint kann das doch auch, wenn man sich den Vortrag mit Notizen ausdruckt, aber das will ich hierfür nicht nutzen.)

2 (wenn 1 nicht lösbar scheint): Innerhalb einer kompletten A4-Seite müssten die Perforationslinien des Papiers unverrückbar(!) in die Seite verankert werden, damit ich sehe, ob meine Textaufteilung damit kollidiert. D.h. ich kann Schriftgrößen, Gliederungen, etc. frei verändern, ohne dass diese Markierungen verrutschen.

Ich habe mich hoffentlich verständlich ausgedrückt und bin echt gespannt, ob/wie das zu lösen ist. Vielen Dank im Voraus an Jeden, der sich mit einem Lösungsansatz meldet!

Microsoft Word, Ausdruck, Word 2013
Fremder USB-Stick - Nach Anschließen nur Hieroglyphen-Dateien

Hallo,

meine Lehrerin hat mir ihren 4 GB-Stick mitgegeben, weil sie einen Film von mir haben will. Als ich ihn ganz normal in den Steckplatz gesteckt habe, und den Ordner "INTENSO" öffnete, waren lauter Ordner, bzw. zwischen 300 MB und 3 GB große Dateien in diesem Pfad, die alle einige Hieroglyphen in ihrem Namen haben. Weil mir das seltsam vorkam, habe ich versucht, die Ordner und Dateien zu öffnen, die Fehlermeldung: "Der angegebene Pfad ist nicht vorhanden. Überprüfen Sie die Pfadangabe und wiederholen Sie den Vorgang" kommt. Auch das Datum von manchen Ordner kommt mir seltsam vor: 1.12.2075 oder 22.5.2073??? In den Eigenschaften haben alle Dateien/Ordner 0 Bytes, nimmt man den gesamten INTENSO-Ordner in den Eigenschaften, hat er 61 GB! Zwischenzeitlich waren es plötzlich nur noch 28 GB, aber die Hieroglyphen-Dateien sind nach wie vor da (habe ihn versucht, zu löschen).

Seltsam ist auch, dass der Stick nur 4 GB hat, und beim "Arbeitsplatz" wird der Hieroglyphen-Ordner nicht berücksichtigt, was die Speicherkapazität angeht.

Neben dem Intenso-Ordner sind noch einige (normale) Ordner und Dateien auf dem Stick, auch Word-Dokumente. Diese habe ich nur geöffnet, weil ich wissen wollte, ob auch andere Dateien dieses Kauderwelsch haben: Ergebnis: ja, einige, nicht alle, aber nicht im Dateinamen, sondern der Text in der Word-Datei ist Hieroglyphisch (wie gesagt: nicht alle Dateien sind betroffen).

Jetzt habe ich Panik, ob ich das evtl. ausgelöst haben könnte - vorher haben alle an den PC angeschlossene Sticks funktioniert!

Was kann ich machen? (siehe zu besserem Verständnis Screenshots!)

Hoffe auf schnelle Hilfe, danke im Voraus, LG, TurnAroundy.

Bild zum Beitrag
Microsoft Word, Datei, Virus, verändern, USB-Stick, Ordner, Hieroglyphen, Fehlermeldung, pfad

Meistgelesene Beiträge zum Thema Microsoft Word