Office: E-Mail Funktion mail auslesen VBA Anfänger

Oberschlumpf69 · 28. März 2018

Hallo!

Hmm??? Ich weiß nicht, um was für eine Signatur es geht.
Die Verweise, die in der Datei für dich gesetzt sind, siehst du im Anhang.
Allerdings sind diese Verweise immer gesetzt.

Vielleicht kannst du ja mal einen Screenshot zeigen, was genau du meinst.

Ciao
Thorsten

benediktlangmantl · 12. Januar 2021

von Oberschlumpf69

...zu meiner Idee

Und Steve ist kein Polizist.
Er informiert dich nur darüber, dass ein und dieselbe Frage in mehreren Foren zu stellen, gegenüber allen Antwortern unfair ist!

Hätte ich gewusst, dass du die Frage schon wo anders gepostet hast, hätte ich mir meine Mühe für dich nicht gemacht....es antworten ja schon andere^^

Aber sei es drum.
Was hältst du nun von meiner Idee? Eigtl hab ich all deine Fragen beantwortet, oder?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hallo, das Abfragemakro, das du ergänzt hast, wo er testet, ob ein ja gestzt ist und eine Mail adresse vorhanden ist funktioniert auch nicht

benediktlangmantl · 28. März 2018

Hallo, Screenshots gerne, wie füge ich die hier ein?

Oberschlumpf69 · 28. März 2018

Screenshots , z Bsp als jpg, werden genau wie xls(x)-Dateien angehängt

Oberschlumpf69 · 28. März 2018

habe die Datei gerad noch mal getestet; habe in Spalte M 2x ein "Ja" gesetzt

es wurde eine Mail mit Anhang erstellt, die in BCC die zuvor die 2 mit "Ja" gewählten Mailadressen enthalten....alles funktioniert

benediktlangmantl · 28. März 2018

Hallo,

Entschuldige, habe ich verkehr gemacht, das ja funktioniert doch.

Ich füge die neue Datei ein mit dem Makro.Diesmal mit Dummydaten.

du kannst ja mal testen ob er bei dir eine Signatur mit auffruft. Ich versuche noch einen Screenshoot nach Ausführung des Makros mit beizulegen.

Wie du dem Screenshot entnimmst, hat er keine Signatur eingefügt.

Wobei es mir mitglerweile egal ist, ob er den E-Mail Text zweizeilig oder einzeilig wie bei htmlbody darstllen kann, aber die Signatur ist wichtig

Oberschlumpf69 · 28. März 2018

Hi

a) jetzt weiß ich, was du mit Signatur meinst.
Aber in keinem Teil deiner Beiträge war die Rede davon, dass der Mail am Ende des Textes eine Signatur hinzugefügt werden soll....oder ich hab es überlesen

Allerdings habe ich ja auch .HtmlBody gegen .Body getauscht.
.Body ist ein reines Text-Objekt, keine Möglichkeit für Fett, Bilder, etc.
So ist also Signatur hinzu auch gar nicht möglich.

Ich hab aber auch gar nicht auf das Hinzufügen einer Signatur geachtet.

b) hab deine Dummy-Datei geöffnet. Schon im Workbooks.Open-Ereignis reagiert der VBA mit Laufzeitfehler.

Sorry, ich weiß nun auch nicht weiter...

Ciao
Thorsten

benediktlangmantl · 28. März 2018

Verstehe ich nicht bei mitgeht sie ohne Fehler auf. Gibts noch ne andere Möglickeit die zusenden? Zum Beispiel Dropbox

Der Text kann ruhig in html umgewandelt werden ist ja auch html signatur

Oberschlumpf69 · 28. März 2018

Hi

Sorry, ich weiß nix mehr.
Hoffentlich ist hier wer anders schlauer + hilft dir weiter.

Ciao
Thorsten

benediktlangmantl · 28. März 2018

Hallo Oberschlumpf
das Überprüfungstool, ob ein Ja vorhanden ist musst eich entfernen, weil die Spalte auch noch für eine andere Funktion dienst.

Wie müsste ich den Code erweitern, wenn das Makro nur ausgeführt wird, also eine Mail erzeugt wird, wenn ein Ja ausgewählt ist.

Bisher war das Prüftool so, das wenn keine Mailadresse vorhanden dann ja rauslöschen, aber das geht wie beschreiben nicht.

Es soll eher so sein, dass das Makro ausgeführt wird, wenn ein Ja gesetzt, sonst wird keine Mail erstellt und darauf hingewiesen, dass kein Mitglied ausgewählt wurde.

hier nochmal der Code

Code:

Application.DisplayAlerts = False
Dim objOutlook As Object
Dim objMail As Object
Dim olApp As Object
Dim olOldBody As String
Dim lstrBCC As String, liBCC As Integer
Dim lstrBody As String, liIdx As Integer, lstrSplit() As String

If Tabelle5.Cells(5, 6).Value = "" Then
MsgBox "Keine Datei ausgewählt. Funktion angehalten. Bitte Datei auswählen und neu starten", vbExclamation, "Hinweis"
Exit Sub
End If

Set olApp = CreateObject("Outlook.Application")

With olApp.CreateItem(0)
Set .SendUsingAccount = .Session.Accounts.Item("info@fidele-rixdorfer.de") ' Sendekonto vorwählen.
.GetInspector.Display
olOldBody = .htmlBody
.To = Tabelle5.Cells(2, 6).Value 'Empfängeradresse aus Tabelle5 Zelle F2
.CC = Tabelle5.Cells(2, 6).Value 'CC aus Tabelle5 Zelle F2
With Tabelle1
For liBCC = 4 To .Cells(Rows.Count, 3).End(xlUp).Row
If .Range("M" & liBCC).Value = "Ja" Then
lstrBCC = lstrBCC & .Range("L" & liBCC).Value & ";"
End If
Next
End With
If lstrBCC "" Then
lstrBCC = Left(lstrBCC, Len(lstrBCC) - 1)
.BCC = lstrBCC 'BCC Mitglieder eintragen aus
End If
.Attachments.Add Tabelle5.Cells(5, 6).Value 'Anlage aus Tabelle5 Zelle F5
.Subject = Tabelle5.Cells(3, 6).Value 'Betreff aus Tabelle5 Zelle F3
lstrSplit = Split(Tabelle5.Cells(4, 6).Value, Chr(10))
For liIdx = LBound(lstrSplit) To UBound(lstrSplit)
lstrBody = lstrBody & lstrSplit(liIdx) & vbCrLf
Next
'.htmlBody = lstrBody & olOldBody 'funktioniert nicht mit Zeilenumbruch; warum, weiß ich nicht
.Body = lstrBody 'funktioniert mit Zeilenumbruch; Formatierungen, wie z Bsp Fett, Kursiv, usw sind nicht möglich
.Display 'zeigt die Mail erst mal an; man muss noch auf "Senden" klicken

End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Oberschlumpf69 · 28. März 2018

Hi

Verwende diesen Code:
Code:

Application.DisplayAlerts = False
Dim objOutlook As Object
Dim objMail As Object
Dim olApp As Object
Dim olOldBody As String
Dim lstrBCC As String, liBCC As Integer
Dim lstrBody As String, liIdx As Integer, lstrSplit() As String

If Tabelle5.Cells(5, 6).Value = "" Then
MsgBox "Keine Datei ausgewählt. Funktion angehalten. Bitte Datei auswählen und neu starten", vbExclamation, "Hinweis"
Exit Sub
End If

With Tabelle1
For liBCC = 4 To .Cells(Rows.Count, 3).End(xlUp).Row
If .Range("M" & liBCC).Value = "Ja" Then
lstrBCC = lstrBCC & .Range("L" & liBCC).Value & ";"
End If
Next
End With
If lstrBCC "" Then
lstrBCC = Left(lstrBCC, Len(lstrBCC) - 1)
Else
MsgBox "Es wurden keine Empfänger ausgewählt." & vbCrLf & "Es wird keine Mail erstellt.", vbInformation, "Hinweis"
End
End If

Set olApp = CreateObject("Outlook.Application")

With olApp.CreateItem(0)
Set .SendUsingAccount = .Session.Accounts.Item("thgob@gmx.de") ' Sendekonto vorwählen.
.GetInspector.display
olOldBody = .htmlBody
.To = Tabelle5.Cells(2, 6).Value 'Empfängeradresse aus Tabelle5 Zelle F2
.CC = Tabelle5.Cells(2, 6).Value 'CC aus Tabelle5 Zelle F2
.BCC = lstrBCC 'BCC Mitglieder eintragen
.Attachments.Add Tabelle5.Cells(5, 6).Value 'Anlage aus Tabelle5 Zelle F5
.Subject = Tabelle5.Cells(3, 6).Value 'Betreff aus Tabelle5 Zelle F3
lstrSplit = Split(Tabelle5.Cells(4, 6).Value, Chr(10))
For liIdx = LBound(lstrSplit) To UBound(lstrSplit)
lstrBody = lstrBody & lstrSplit(liIdx) & vbCrLf
Next
'.htmlBody = lstrBody & olOldBody 'funktioniert nicht mit Zeilenumbruch; warum, weiß ich nicht
.Body = lstrBody 'funktioniert mit Zeilenumbruch; Formatierungen, wie z Bsp Fett, Kursiv, usw sind nicht möglich
.display 'zeigt die Mail erst mal an; man muss noch auf "Senden" klicken
'.send 'sendet die Mail direkt ab; finde ich nicht so gut
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und stelle weitere Fragen zu diesem Thema in einem neuen Thread.

Ciao
Thorsten

Oberschlumpf69 · 28. März 2018

änder diese Zeile
Code:

Set .SendUsingAccount = .Session.Accounts.Item("thgob@gmx.de") ' Sendekonto vorwählen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

um in
Code:

Set .SendUsingAccount = .Session.Accounts.Item("info@fidele-rixdorfer.de") ' Sendekonto vorwählen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hatte ich vergessen, wieder anzupassen

benediktlangmantl · 28. März 2018

Hallo Thorsten,

ich danke dir und mache den Threat jetzt zu. Dann werde ich das HTML SignaturProblem noch mal als ExtraThreat posten. Ich hoffe es gibt nicht wieder Ärger.

Danke und Gruß
Benedikt

Office: E-Mail Funktion mail auslesen VBA Anfänger

E-Mail Funktion mail auslesen VBA Anfänger

E-Mail Funktion mail auslesen VBA Anfänger

E-Mail Funktion mail auslesen VBA Anfänger

E-Mail Funktion mail auslesen VBA Anfänger

E-Mail Funktion mail auslesen VBA Anfänger

E-Mail Funktion mail auslesen VBA Anfänger - Similar Threads - Mail Funktion mail

Neues E-Mail bearbeiten

Junk-E-Mail nach MaxMustermann filtern

Neues Outlook: Mail-Eingänge in Posteingang Favoriten

Externe Mails mit bedingter Formatierung farbig hervorheben

E-Mail Funktion

E-Mail Funktion mit CC?

E-Mail funktion