Thema Datum  Von Nutzer Rating
Antwort
14.10.2015 15:31:20 Thorsten Menges
NotSolved
14.10.2015 16:48:05 Gast64485
NotSolved
Rot E-Mail per Excel VBA
 15.10.2015 09:33:16 Thorsten Menges
NotSolved

Ansicht des Beitrags:
Von:
Thorsten Menges		 Datum:
15.10.2015 09:33:16		 Views:
767		 Rating:
     
Antwort:
  Ja
Thema:
E-Mail per Excel VBA
Hallo, untenstehender Code funktioniert gut. Allerdings benötige ich noch ein CC und ein BCC Feld und die "From" E-Mail Adresse soll nicht meine persönliche, sondern eine andere sein, welche eingerichtet ist. wenn ich die Befehle .CC und .CC hinzufüge, läuft der Code nicht mehr? Anstatt der Funktion .Body möchte ich gerne einen Text aus eine .txt Datei einlesen. Hier würde ich auch unter den Text den Absender einfügen. Es sei denn, ich kann das direkt mit einem Code erledigen? Hat hier jemand eine Idee? dieser Code funktioniert: 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

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
14.10.2015 15:31:20 Thorsten Menges
NotSolved
14.10.2015 16:48:05 Gast64485
NotSolved
Rot E-Mail per Excel VBA
 15.10.2015 09:33:16 Thorsten Menges
NotSolved