Thema Datum  Von Nutzer Rating
Antwort
21.07.2020 14:17:13 Hans
Solved
22.07.2020 00:44:12 Gast97774
Solved
Rot Outlook Email aus bestimmten Zellen/Spalten Infos generieren
 22.07.2020 00:52:12 Gast91413
Solved
22.07.2020 09:05:43 Gast9600
Solved

Ansicht des Beitrags:
Von:
Gast91413		 Datum:
22.07.2020 00:52:12		 Views:
896		 Rating:
     
Antwort:
 Nein
Thema:
Outlook Email aus bestimmten Zellen/Spalten Infos generieren

.... Das lief jetzt Kacke, der Code war noch nicht fertig und ich habe ausversehen TAB und dann Enter gedrückt und damit den letzten Post abgeschickt. Hier schreibe ich also den vorherigen Post fertig:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub Mail_luecken()
'Beispiel Lückentext
Dim oApp As Object
dim strBody as string
dim Zeile as long
  
   Zeile = 2   'die Daten werden aus Zeile 2 genommen, das muss natürlich angepasst werden
  
  
   'Text für E-Mail zusammen bauen:
   strBody = "Hallo Lücke1," & vbcrlf &  vbcrlf & "das ist der Inhalt der Zelle D: Lücke2" & vbcrlf & _
             "und das der Inhalt der Zelle E: Lücke3." & vbcrlf &  vbcrlf & _
             "Die Daten stammen alle aus Zeile Lücke4." & vbcrlf &  vbcrlf & _
             "Viele Grüße," & vbcrlf & "Lücke5"
  
   strBody = replace(strBody, "Lücke1", cells(Zeile, 1).value)  'ersetze Lücke1 durch Inhalt aus Spalte A
   strBody = replace(strBody, "Lücke2", cells(Zeile, 4).value)
   strBody = replace(strBody, "Lücke3", cells(Zeile, 5).value)
   strBody = replace(strBody, "Lücke4", Zeile)
   strBody = replace(strBody, "Lücke5", cells(Zeile, 6).value)
 
  
   Set oApp = CreateObject("OUTLOOK.Application")
   With oApp.CreateItem(0)    'neue E-Mail ohne Vorlage
  
      .To = cells(Zeile, 1).value
      .Bcc = "bcc@example.com"
        
      .Subject = cells(Zeile, 2).value & " " & cells(Zeile, 3).value
      .Body = strBody
  
      .Display    'Anzeigen
      '.Send       'Abschicken
   End With
     
End Sub

 

Die Funktion replace() ersetzt eine Zeichenkette durch eine andere. Zum Beispiel:

?
1
2
3
sub beispiel_replace()
   msgbox replace("Hallo Peter", "Peter", "Hans")
end sub

 

Ich habe das hier einfach so runtergeschrieben und hoffe, dass ich keinen Tippfehler oder ähnliches gemacht habe. Ich konnte es nicht testen und wünsche dir viel Erfolg!

Viele Grüße

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
21.07.2020 14:17:13 Hans
Solved
22.07.2020 00:44:12 Gast97774
Solved
Rot Outlook Email aus bestimmten Zellen/Spalten Infos generieren
 22.07.2020 00:52:12 Gast91413
Solved
22.07.2020 09:05:43 Gast9600
Solved