Thema Datum  Von Nutzer Rating
Antwort
28.01.2022 08:00:49 Anna
NotSolved
Blau Makro Serienbrief PDF - Serienmail
 28.01.2022 08:58:47 volti
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
28.01.2022 08:58:47		 Views:
400		 Rating:
     
Antwort:
  Ja
Thema:
Makro Serienbrief PDF - Serienmail

Hallo Anna,

 

wofür brauchst Du zwei fast identische EMail-Makros?

Hier als Vorschlag ein Makro, in dem noch so manches Überflüssige eliminiert wurde.

Wenn das ganze nur in Excel wäre, könnte man am Ende des PDF-Makros das eMail-Makro einfach per Call aufrufen.

Call Create_Mail_Send  bzw. Call Create_Mail_Send True

Wenn Du wirklich die Unterscheidung zwischen .Send und .Displax brauchen solltest, kannst Du das per Parameter machen, s.Code.

Un dnoch ein Tipp: Das Outlook-Objekt außerhalb der Schleife nur einmal Kreieren.

Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26		  
Option Explicit

Sub Create_Mail_Send(Optional bSend As Boolean)
' Aufbau: Emailadresse, Bereff, Text direkt in Zellen nebeneinander
' Nur die Spalte mit der Emailadresse markieren und Makro starten.

  Dim objOutlook As Object, Zelle As Range

  Set objOutlook = CreateObject("Outlook.Application")

  For Each Zelle In Selection.Cells

      With objOutlook.CreateItem(0)
          .SentOnBehalfOfName = "personalservice@stromnetz-berlin.de"  ' Absender-Adresse hinzufügen
          .GetInspector.display
          .To = Zelle.Value      ' Emailadresse
          .cc = ""
          .Subject = Zelle.Offset(0, 1).Value
          .body = Zelle.Offset(0, 2).Value  ' & vbLf & .body ' ggf. Signatur anfügen
          If bSend Then .Send
      End With

  Next Zelle
  Set objOutlook = Nothing

End Sub
_________
viele Grüße
Karl-Heinz

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
28.01.2022 08:00:49 Anna
NotSolved
Blau Makro Serienbrief PDF - Serienmail
 28.01.2022 08:58:47 volti
NotSolved