Microsoft Excel – die besten Beiträge

Verwandte Themen
fatih1995497
25.03.2019, 03:07
Mit Bildern

VBA Programmierung - Automatischer Email versandt Probleme?

Hallo ich hoffe Ihr könnt mir helfen :/

Folgendes Problem: Wenn ich die Mail versende, öffnen sich für jede Zeile eine extra Email und leider auch nur jeweils ein Empfänger und einer in cc.

Was muss ich nun in der Programmierung hinzufügen, um nur eine Email geöffnet zu bekommen, mit mehreren Empfängern (Falls mehrere Kreuze gesetzt worden sind). Ich danke euch echt wenn Ihr mir helfen können :/

Ich habe mir die Bausteine aus dem Internet zusammengesetzt, bin daher kein Profi darin.

Programmtext:

Private Sub Send_Email()
   '-------------< Send_Email() >-------------
   Dim sTitle As String
   sTitle = "Test-HTML Email from Excel"
   '< HMTL holen >
   Dim sTemplate As String
   sTemplate = Sheets("ini_Vorlage").Shapes(1).TextFrame2.TextRange.Text
   '</ HMTL holen >
   '----< Send with Outlook >----
   Dim app_Outlook As Outlook.Application
   Set app_Outlook = New Outlook.Application
   '--< Email einstellen >--
   Dim objEmail As Outlook.MailItem
   Dim sEmail_Addresscc As String
   Dim sEmail_Address As String
   Dim iRow As Integer
   For iRow = 4 To 100
       If Cells(iRow, 21) = "x" Then
           '< get Email Address >
           'Column 2, B
           sEmail_Address = Cells(iRow, 19)
           sEmail_Addresscc = Cells(iRow, 20)
           '</ get Email Address >
           '< Fill Placeholders >
           Dim sHTML As String
           sHTML = Replace(sTemplate, "[@Name]", sEmail_Address)
           '</ Fill Placeholders >
           '--< Send Email >--
           Set objEmail = app_Outlook.CreateItem(olMailItem)
           objEmail.To = sEmail_Address
           objEmail.CC = sEmail_Addresscc
           objEmail.Subject = sTitle
           'objEmail.HTMLBody = sHTML 'use .HTMLBody for HTML
           objEmail.Body = sHTML      'and .body for pure Text
           objEmail.Display
           '--</ Send Email >--
       End If
   Next
   '< Abschluss >
   Set objEmail = Nothing
   Set app_Outlook = Nothing
   '</ Abschluss >
   MsgBox "Emails erstellt", vbInformation, "Fertig"
   '----</ Send with Outlook >----
   '-------------</ Send_Email() >-------------
End Sub

Bild zum Beitrag
Computer, Microsoft Excel, E-Mail, programmieren, VBA, VBA Programmierung, VBA Excel, makros erstellen
2 Antworten
Nayes2020
29.09.2016, 09:01

Export in Excel. Druckbereiche in Word einfügen. dringend Hilfe?

Gude,

Ich verzweifle langsam... brauche eure Hilfe. Ich habe ein halbes Jahr lang an einem "Programm" gebastet. es soll dazu dienen Bauteilkataloge zu erstellen.

Also wir haben mehrere Exceltabellenblätter in einer Datei, in jedem Tabellenblatt gibt es ein festen Druckbereich (welches eben die fertige Seite darstellt) drum herum gibts Dropdown menüs, Formeln usw. also alles um die fertige Seite zu füllen. Aber wie gesagt im Druckbereich liegt nur das fertige Blatt was eben exportiert werden soll.

Da wir hier in der Regel von 100 Seiten reden, möchte ich das nicht händisch über Kopieren und EInfügen halten. es soll so automatisch wie möglich gehen. da es eine Arbeitserleichterung für die Zukunft darstellen soll.

Wie kriege ich diese Seiten in einer Word datei? Warum fragt ihr? weil zu einem katalog noch viel Schnickschnack gehört. Hinweistexte, Beschreibung des Bauobjektes usw. Vielleicht kann man sich das vorstellen.

deswegn möchte ich diese fertigen Datenblätter am Ende in einer Worddatei einfügen. und ich kriegs einfach nicht hin.

ich kann in dem Excelprojekt eine PDF erstellen. das klappt wunderbar bringt mir nur leider nix. wenn ich diese in Word konvertiere verschwinden Rahmenlinien und es ist zum Teil verschoben.

mit XPS kann ich auch nichts anfangen.

Excel und Word sind doch von der selben Firma. das muss doch möglich sein. Am besten wäre es wenn man die Druckbereiche als doc. exportieren kann. die Option habe ich leider nicht.

Weiß einer wie ich das hinkriege?

Microsoft Word, Microsoft Excel, Export
2 Antworten

Meistgelesene Beiträge zum Thema Microsoft Excel

Mehr meistgelesene Fragen zu Microsoft Excel