German Pegasus Mail

The perfect forum for discussions or technical questions about Pegasus Mail in German.

0
-1
closed
Michael posted May 21 '14 at 4:01 pm

[quote user="MeggieMae"]Den Ordner habe ich jetzt neu erstellt - ist aber leer und die PMM Datei habe ich im PMAIL Ordner, aber keinen Zugriff bzw. kann sie nicht öffnen.[/quote]

Falls du keine besonders komplizierte Ordnerstruktur hast, kannst du mal die HIERARCH.PM in deinem Ordnerverzeichnis (da wo die PMM-Datei ist) löschen bzw. besser umbenennen(während Pegasus Mail geschlossen ist). Nach einem Neustart sollten dann alle Ordner einzeln (ohne "Schubladen") angezeigt werden, vermutlich auch der jetzt vermißte, den du dann ggf. umbenennen mußt, sofern der neue genauso heißt wie der alte. Wenn du allerdings eine sehr komplexe Struktur hast, wäre es jedoch ratsam, HIERARCH.PM mit einem simplen Texteditor zu bearbeiten (nach Anlegen einer Sicherungskopie) ...

0
-1

Hallo! 

Den Virenscanner AVG hatte ich vorübergehend völlig deinstalliert, neu gestartet und trotzdem gings nicht. Auf dem Netbook auch mit Win 8.1. und AVG geht alles. eMail ohne Anhänge werden ja auch anstandslos versandt. Mit kleinen Anhängen (z.B 80 kb dauert der Versand ewig) mit größeren Anhängen (z.B. 2 MB) frierts irgendwann ein.

Christoph. 

0
-1
closed
Michael posted May 15 '14 at 12:34 am

[quote user="irelam"]It seems he is more concerned about email attachments.[/quote]

No, he's not, but IMO he should be more concerned about attachments than about HTML. But you posted your previous reply concerning BearHtml to a totally unrelated instead of this one here!

0
-1
closed
Six..Pack posted May 9 '14 at 3:15 pm

Hallo Jungs,

ich habe mal wieder ein kleines Problem festgestellt.

In meinen Einstellungen habe ich angeklickt:  Mehrfache Dateiauswahl beim Anhängen von Dateien erlauben.

Das funktioniert auch, wenn man Anhänge klickt und bei Datei hinzufügen die Dateien markiert und öffnet.

Es funktioniert aber nicht, wenn man "Zuletzt verwendete Dateien..." nimmt.

Das ist ja nicht schön.

 

Gruß
Werner

 

0
-1
closed
Duke posted May 16 '14 at 4:47 pm

Hab alle Varianten mal durchprobiert, leider ohne Erfolg! Auch wenn ich sie auf dem Server ablege (\\\\SERVER\\PMAIL\TEST) wird kein Ordner verbunden. Da die Variable MAI ja belegt wird, ist MAI wahrscheinlich die falsche Variable!

Meine Lösung ist nun eine Kopie des Programm - Verzeichnisses zu erzeugen und dort eine geänderte pegasus.ini zu verwenden. Man muss nur beim Update daran denken beide Programmverzeichnisse zu aktualisieren.

0
-1
closed
Six..Pack posted May 3 '14 at 12:52 am

Heute hat mich das Forum ausgetrickst. Nachdem ich geschrieben hatte, war es platt.

Ich werde da nicht mehr dran rumfummeln, weil mir das zu aufwendig erscheint, obwohl ich gerne Software verdeutsche, wenn die nicht mehr gewartet und upgedated wird.

Das Datum steht im Header ja in Englisch und das wird sicherlich nicht von Pegasus da reingeschrieben.

Gruß

Werner

 

0
-1
closed
ecz posted Apr 30 '14 at 5:46 pm

hallo!

freut mich, dass alles funktioniert hat - wowohl ich trotzdem vermute, dass du meine postings mißverstanden hast und deshalb den komplizierten weg gewählt hast :-)

schönen feiertag!
lg
ernst 

0
-1
closed
Joerg posted Nov 14 '14 at 9:30 am

Moin Jungs und Mädels,

habe gerade erst bemerkt, dass es seit diesem Jahr eine Versin 4.7 gibt. Schaue immer in den Community Downloadbereich, wo immer noch nur die 4.63 drinsteht. Wird dieser Bereich nicht mehr gepflegt? Wollte Peter Strömblad per Kontaktformular fragen - funktioniert aber nicht, da das Captcha angeblich immer falsch ist. Nur auf der offiziellen Pmail Downloadseite von David gibt es die 4.7.

Jedenfalls bin ich gerade dabei alle Threads zur 4.7 zu lesen, bevor ich diese Version hier in der Firma drüberbügele. Dabei bin ich auch auf diesen Beutrag gestoßen. das Problem mit den komma-separierten Nachnamen, Vornamen kennen wir hier auch. Allerdings kommen die Probleme meistens nicht aus dem Adressbuch, sondern wenn man bestimmte E-mails einfach beantworten will. Man drückt auf Beantworten und achtet nicht weiter darauf, was oben von Pmail eingetragen wird. Beim Versenden kommt dann die bekannte Fehlermeldung User "Schmidt" nicht gültig. dann kommen unsere Leute zu mir gerannt und heulen, dass ihre Mails nichtrausgehen. Mittlerweile weiß ich ja, worum es geht und dass die Mail schon richtig versandt wurde. Pmail trägt nämlich ein:

Schmidt, Hans <hans.schmidt@domain.com>

und versucht eine Mail an "Schmidt" und eine weitere an  "hans.schmidt@domain.com" zu versenden. Wie beschrieben, klappt alles ohne Fehler, wenn die Adresszeile:

"Schmidt, Hans" <hans.schmidt@domain.com>

lautet. Nur leider werden bei Reply Aktionen mal die Anführungszeichen gesetzt und mal nicht. Dies hängt meines Erachtens aber vom Absenderprogramm ab, wie dieses den Klarnamen speichert und überträgt. Wäre natürlich schön, wenn Pmail dies in Zukunft abfangen könnte. Aber wie gesagt, es liegt nicht unbedingt nur am Adressbuch.

Gruß

Jörg

0
-1
closed
Six..Pack posted Apr 29 '14 at 4:16 pm

Hallo Jungs,

vielen Dank für die doch tiefer führende Erklärungen.

Nun bin ich doch in Bezug auf emails eine ganze Ecke schlauer geworden.

Ich benutze den IERenderer, nur den Firefox - keine automatische Suche und zum Glück bekomme ich nicht so viele emails, die so kodiert sind, wie die vom Pegasus-Forum.

Wenn ich den IERenderer abschalte, dann bekomme ich keine Browser mehr angeboten.

Ich wünsche Euch an dieser Stelle einen schönen 1. Mai. Ich muss noch bewegliche Teile wegräumen, denn hier in Bayern wird das sonst "verzogen". Das nennt sich Freinacht.

Bis demnächst mal wieder.

Gruß

Werner

 

0
-1

heissen Dank!
 Port 995 (mit SSL) für POP3 und Port 587 (mit STARTLS) für SMTP bei mir funktionieren,
*_*_
wobei ich bei letzterem eine Authentifizierung über einen vorherigen POP3-Login durchführen lasse ...
*_*_* 
der Durchbruch kam mit STARTLS und mit der Authentifizierung ...! die richtige Zeile musste ich auswählen.
Will mich nicht rühmen... Aber, ich habe vor 10 Minuten die Lösung selber gefunden, durch 20 Mal alle Kombinationen ausprobieren. Du hast mir nur noch bestätigt. Danke trotzdem für die schnellen Antworten.
Habe noch nie eine so prompte Reaktion erlebt. - Bernard ( arkouda )

0
-1
closed
Six..Pack posted Apr 28 '14 at 2:38 pm

Richtig installiert ist der, habe ich ja gemacht. Allerdings habe ich bei mir vorher eine Extension-Auswahl getroffen.

Ich habe ihm auch Magix installiert.

Allerdings jedes Mal wenn ich da hinkomme, sehe ich wieder viel Müll im Download-Verzeichnis.

Irgendwann wird der Anruf kommen, ich soll ihm sein Win7 neu aufsetzen.[:'(]

 

0
-1
closed
Lilableu posted May 1 '14 at 3:25 pm

Hallo liebe Leute,

es ist wirklich genial, dass es Pegasus Mail noch immer gibt - mein alltime favourite Mail-Programm! Genial auch, dass es noch andere User gibt, die mehr Programmier-Hintergrundwissen haben als ich.

Die Angabe der notwendigen Anpassungen der SMTP-Einstellungen hat mich gerade gerettet! Soweit ich sehe, kann ich nach dem Update auf v4.7 auch wieder Mails verschicken...

Dankeschön an alle, die dieses Forum immer mit den notwendigen Infos bestücken!!! 

Viele Grüße

Lilableu


 

0
-1

Hallo Michael,

herzlichen Dank für den Link mit den Dateinamen, sehr gut. Damit kann ich schon einiges anfangen.

Nach "Migration" habe ich allerdings nicht gesucht, danke.

Innerhalb der Woche müssen alle Rechner arbeiten, aber nächstes Wochenende kann ich dann wieder experimentieren. Ich melde mich.

 Danke, 

Lisa

0
-1

[quote user="Lisa"]Wenn man hier "Grafik und Text" auswählt, sieht die Symbolleiste "verschoben" aus, der Platz reicht nicht für den Text und die Symbole, besonders sieht man das beim Symbol "Speichern und Bearbeiten":[/quote]

Das ist vermutlich schon länger so, dürfte allerdings kaum jemandem aufgefallen sein.

[quote user="Lisa"]Wenn man dort nun wieder eine E-Mail mit Anhängen anzeigt und auf die Anzeige der Anhänge umschaltet, ist wieder die Symbolleiste auf "Nur Symbole" eingestellt.[/quote]

Das hat aber nichts mit der Fehlermeldung zu tun: Wenn du nach dem Ändern der Einstellung das Vorschaufenster schließt und wieder öffnest (ohne Pegasus Mail zu beenden), dann ist die Einstellung auch wieder auf "Nur Symbole".

[quote user="Lisa"]Sobald dort wieder "anfasst", resultiert beim Beenden von Pegasus die besagte Fehlermeldung.[/quote]

Das passiert bei mir nicht. Zu den Fehlermeldungen werde ich im anderen Thread antworten.

0
-1
closed
Lisa posted Mar 15 '14 at 1:25 pm

Hallo,

so, nochmal Dank an Michael und Peggy. Hat alles so funktioniert mit dem "Drüberinstallieren".

Und was ich als sehr positiv empfinde: Alle Shortcuts und Zugriffstasten sind genauso geblieben, liegt wohl daran, dass Sven immer die deutsche Version selbst macht. Das stört mich bei anderer Software maßlos, wenn sich die Zugriffstasten bei jeder neuen Version ohne irgendeinen Sinn ändern. Bei Pegasus ist es perfekt, man fühlt sich gleicher wieder "zu Hause". Großes Lob an den Übersetzer und danke dafür!

Allerdings stürzt Pegasus jetzt beim Beenden JEDESMAL ab. Aber dazu in einem eigenen Thread. 

Gruß

Lisa

0
-1
closed
Six..Pack posted Mar 27 '14 at 8:48 pm

@ peggy

 

Nun ja, man muss nicht unbedingt umstellen.

Wenn man seine emails z.B. durch AVG 2014 schickt, dann geht es ohne Verschlüsselung.

Das macht dann AVG. Dort werden für POP und SMTP die entsprechenden Daten eingegeben und in Pegasus wird nichts ! umgestellt.

 

0
-1

[quote] ]...Ich hatte Umlaute im Passwort:
Hatte diese durch andere

Sonderzeichen ersetzt und natürlich in Pmail unter den POP3 -

Einstellungen nachgeführt. Bei SMTP hatte ich nichts in den

Einstellungen geändert.
Und siehe da....
POP3 geht natürlich noch immer..
UND
SMPT (Mails Senden) geht jetzt auch....
Also
Entweder hatte Pmail ein Problem im Zusammenhang mit Umlauten im Passwort
oder:
Der GMX - SMTP - Server hatte mit Umlauten im Passwort ein Problem.....[. [/quote]

 Präzisierung: Es sind nicht Umlaute, sondern SONDERZEICHEN!

Hinweise unter:

 https://hilfe.gmx.net/sicherheit/ssl.html

befolgt:

[quote]SERVERDATEN

Nutzen Sie die folgenden Servernamen, Ports und Verschlüsselungsprotokolle:

E-Mail-Protokoll POP3 (Posteingang) IMAP (Posteingang) SMTP (Postausgang)
Servername pop.gmx.net imap.gmx.net mail.gmx.net
Port 995 993 587
Verschlüsselungsprotokoll SSL SSL StartTLS (TLS, wenn "StartTLS" nicht auswählbar)

Wenn

Ihr Programm die Verschlüsselungsprotokolle SSL und StartTLS nicht

ausdrücklich anbietet, genügt es oft auch, einfach eine "verschlüsselte"

Verbindung zu aktivieren. Das Protokoll wird in diesem Fall automatisch

ausgewählt.

 [/quote]

und Empfehlung vom Provider gmx befolgt:

 [quote] Ein möglichst sicheres Passwort
besteht aus:

    - Mindestens 8 Zeichen
    - Buchstaben UND Zahlen
    - Umlauten und/oder Sonderzeichen
      ! # $ % & ( ) * + , - . / : ; < = > ? @ [ \ ] ^ _ { | } ~ § Ä ä Ö ö Ü ü ß
      Groß- UND Kleinschreibung [/quote]

  Hatte nach aktueller Änderung meines Passwortes exakt das gleiche Problem.

  • POP3 funktionierte mit Sonderzeichen.

  • SMTP funktionierte NICHT mit Sonderzeichen. [N][N]

 Erst nach erneuter Änderung Passwort ohne bestimmte Sonderzeichen funktionierte das Senden in Pmail wieder.

    Problematisch scheint z. B. das § Zeichen zu sein. Das $ Zeichen funktioniert wiederum!

==> Unklar ist ob der Fehler bei pmail liegt.

 

Grüsse

 

0
-1
closed
Archimedes posted Jan 22 '14 at 11:22 am

Hallo H.G.P.

ja, soweit kein Problem.

Ich möchte aber keine Datei anhängen sondern Daten aus Access 2003 auslesen und im e-mail Text verwenden.

Das komplette Script sieht so aus:

Private Sub EmailVersenden_Click()

If IsNull(Sprache) Then
MsgBox "keine Sprache angegeben"
Else
Forms!Bestellungen!Lieferdatum = Date
Dim Session As Object
Dim Message As Object
Dim Recipient As Object
Dim errObj As Long
Dim errMsg



On Error GoTo MAPITrap
' Eine Instanz des "MAPI" Objektes referenzieren
Set Session = CreateObject("Mapi.Session")



' Exchange Profil auswählen
Session.Logon profilename:="Lothar Wasko"



' Eine neue Email Nachricht erstellen
Set Message = Session.Outbox.Messages.Add



' Nachrichten Betreff und Text hinzufügen
If Forms![Bestellungen]![Sprache] = "Deutsch" Then
Message.Subject = "Ihre Bestellung im Pfeifenshop wurde abgeschickt"
If Forms![Bestellungen]![Feld239] = "DHL_National" And Forms![Bestellungen]![Sprache] = "Deutsch" Then Message.Text = "Sehr geehrter Kunde," & vbNewLine & "Ihre Bestellung mit der Nr. " & Forms![Bestellungen]![Bestell-Nr] & " wurde soeben per DHL abgeschickt." & vbNewLine & Forms![Bestellungen]![Kundeninfo] & vbNewLine & "Paketverfolgung: http://nolp.dhl.de/nextt-online-public/track.do?lang=de" & vbNewLine & "Die Paketnummer ist: " & Forms![Bestellungen]![Trackingnummer] & vbNewLine & "(es kann einige Stunden dauern, bis die Datenbank aktualisiert wurde)" & vbNewLine & _
"Die Lieferadresse ist:" & vbNewLine & vbNewLine & Forms![Bestellungen]![Empfänger] & vbNewLine & Forms![Bestellungen]![B_Kontaktperson] & vbNewLine & Forms![Bestellungen]![B_Straße] & vbNewLine & Forms![Bestellungen]![B_PLZ] & " " & Forms![Bestellungen]![B_Ort] & vbNewLine & Forms![Bestellungen]![Bestimmungsland] & vbNewLine & vbNewLine & "Eine vollständige Bestell-Historie finden registrierte Kunden online im Kundenbereich." & vbNewLine & vbNewLine & "mit freundlichen Grüßen" & vbNewLine & "Lothar Wasko" & vbNewLine & "http://www.annonces.de/Pfeifenshop/index.htm" & vbNewLine & "http://www.pipe-shop.net"
End If
If Forms![Bestellungen]![Feld239] = "DHL_International_Premium" And Forms![Bestellungen]![Sprache] = "Deutsch" Then
Message.Text = "Sehr geehrter Kunde," & vbNewLine & "Ihre Bestellung mit der Nr. " & Forms![Bestellungen]![Bestell-Nr] & " wurde soeben per DHL abgeschickt." & vbNewLine & Forms![Bestellungen]![Kundeninfo] & vbNewLine & "Paketverfolgung: http://nolp.dhl.de/nextt-online-public/track.do?lang=de" & vbNewLine & "Die Paketnummer ist: " & Forms![Bestellungen]![Trackingnummer] & vbNewLine & "(es kann einige Stunden dauern, bis die Datenbank aktualisiert wurde)" & vbNewLine & _
"Die Lieferadresse ist:" & vbNewLine & vbNewLine & Forms![Bestellungen]![Empfänger] & vbNewLine & Forms![Bestellungen]![B_Kontaktperson] & vbNewLine & Forms![Bestellungen]![B_Straße] & vbNewLine & Forms![Bestellungen]![B_PLZ] & " " & Forms![Bestellungen]![B_Ort] & vbNewLine & Forms![Bestellungen]![Bestimmungsland] & vbNewLine & vbNewLine & "Eine vollständige Bestell-Historie finden registrierte Kunden online im Kundenbereich." & vbNewLine & vbNewLine & "mit freundlichen Grüßen" & vbNewLine & "Lothar Wasko" & vbNewLine & "http://www.annonces.de/Pfeifenshop/index.htm" & vbNewLine & "http://www.pipe-shop.net"
End If
If Forms![Bestellungen]![Feld239] = "DPD" And Forms![Bestellungen]![Sprache] = "Deutsch" Then
Message.Text = "Sehr geehrter Kunde," & vbNewLine & "Ihre Bestellung mit der Nr. " & Forms![Bestellungen]![Bestell-Nr] & " wurde soeben per DPD abgeschickt." & vbNewLine & Forms![Bestellungen]![Kundeninfo] & vbNewLine & "Paketverfolgung: http://www.dpd.com/tracking_de/(lang)/de" & vbNewLine & "Die Paketnummer ist: " & Forms![Bestellungen]![Trackingnummer] & vbNewLine & "(es kann einige Stunden dauern, bis die Datenbank aktualisiert wurde)" & vbNewLine & _
"Die Lieferadresse ist:" & vbNewLine & vbNewLine & Forms![Bestellungen]![Empfänger] & vbNewLine & Forms![Bestellungen]![B_Kontaktperson] & vbNewLine & Forms![Bestellungen]![B_Straße] & vbNewLine & Forms![Bestellungen]![B_PLZ] & " " & Forms![Bestellungen]![B_Ort] & vbNewLine & Forms![Bestellungen]![Bestimmungsland] & vbNewLine & vbNewLine & "Eine vollständige Bestell-Historie finden registrierte Kunden online im Kundenbereich." & vbNewLine & vbNewLine & "mit freundlichen Grüßen" & vbNewLine & "Lothar Wasko" & vbNewLine & "http://www.annonces.de/Pfeifenshop/index.htm" & vbNewLine & "http://www.pipe-shop.net"
End If
If Forms![Bestellungen]![Sprache] = "English" Then
Message.Subject = "Your order from the German Pipe Shop has been dispatched."
If Forms![Bestellungen]![Feld239] = "DHL_National" And Forms![Bestellungen]![Sprache] = "English" Then
Message.Text = "Dear customer," & vbNewLine & "we inform you that your order no. " & Forms![Bestellungen]![Bestell-Nr] & " is shipped out as registered parcel just now." & vbNewLine & Forms![Bestellungen]![Kundeninfo] & vbNewLine & "Tracking: http://nolp.dhl.de/nextt-online-public/track.do?lang=en" & vbNewLine & "The tracking number is: " & Forms![Bestellungen]![Trackingnummer] & vbNewLine & "(the data base need one day or more to be updatet)" & vbNewLine & vbNewLine & _
"we have send your order to:" & vbNewLine & vbNewLine & Forms![Bestellungen]![Empfänger] & vbNewLine & Forms![Bestellungen]![B_Kontaktperson] & vbNewLine & Forms![Bestellungen]![B_Straße] & vbNewLine & Forms![Bestellungen]![B_PLZ] & " " & Forms![Bestellungen]![B_Ort] & vbNewLine & Forms![Bestellungen]![Bestimmungsland] & vbNewLine & vbNewLine & "Registered customers can find the complete order-history in the new customer area." & vbNewLine & vbNewLine & "Kind Regards" & vbNewLine & "Lothar Wasko" & vbNewLine & "http://www.annonces.de/Pfeifenshop/indexa.htm" & vbNewLine & "http://www.pipe-shop.net"
End If
If Forms![Bestellungen]![Feld239] = "DHL_International_Premium" And Forms![Bestellungen]![Sprache] = "English" Then Message.Text = "Dear customer," & vbNewLine & "we inform you that your order no. " & Forms![Bestellungen]![Bestell-Nr] & " is shipped out as registered parcel just now." & vbNewLine & Forms![Bestellungen]![Kundeninfo] & vbNewLine & "Tracking: http://nolp.dhl.de/nextt-online-public/track.do?lang=en" & vbNewLine & "The tracking number is: " & Forms![Bestellungen]![Trackingnummer] & vbNewLine & "(the data base need one day or more to be updated)" & vbNewLine & vbNewLine & _
"we have send your order to:" & vbNewLine & vbNewLine & Forms![Bestellungen]![Empfänger] & vbNewLine & Forms![Bestellungen]![B_Kontaktperson] & vbNewLine & Forms![Bestellungen]![B_Straße] & vbNewLine & Forms![Bestellungen]![B_PLZ] & " " & Forms![Bestellungen]![B_Ort] & vbNewLine & Forms![Bestellungen]![Bestimmungsland] & vbNewLine & vbNewLine & "Registered customers can find the complete order-history in the new customer area." & vbNewLine & vbNewLine & "Kind Regards" & vbNewLine & "Lothar Wasko" & vbNewLine & "http://www.annonces.de/Pfeifenshop/indexa.htm" & vbNewLine & "http://www.pipe-shop.net"
End If
If Forms![Bestellungen]![Feld239] = "DPD" And Forms![Bestellungen]![Sprache] = "English" Then
Message.Text = "Dear customer," & vbNewLine & "we inform you that your order no. " & Forms![Bestellungen]![Bestell-Nr] & " is shipped out as registered parcel just now." & vbNewLine & Forms![Bestellungen]![Kundeninfo] & vbNewLine & "Tracking: http://www.dpd.com/tracking/(lang)/en/" & vbNewLine & "The tracking number is: " & Forms![Bestellungen]![Trackingnummer] & vbNewLine & "(the data base need one day or more to be updated)" & vbNewLine & vbNewLine & _
"we have send your order to:" & vbNewLine & vbNewLine & Forms![Bestellungen]![Empfänger] & vbNewLine & Forms![Bestellungen]![B_Kontaktperson] & vbNewLine & Forms![Bestellungen]![B_Straße] & vbNewLine & Forms![Bestellungen]![B_PLZ] & " " & Forms![Bestellungen]![B_Ort] & vbNewLine & Forms![Bestellungen]![Bestimmungsland] & vbNewLine & vbNewLine & "Registered customers can find the complete order-history in the new customer area." & vbNewLine & vbNewLine & "Kind Regards" & vbNewLine & "Lothar Wasko" & vbNewLine & "http://www.annonces.de/Pfeifenshop/indexa.htm" & vbNewLine & "http://www.pipe-shop.net"
End If

With Message
' Eine Adresse dem eMail Objekt hinzufügen und
' einen Verweis in eine Objekt Variable speichern
Set Recipient = Message.Recipients.Add

' E-Mail Adresse hinzufügen, Internet oder
' ein Name der in Ihrem Adreßbuch steht
Recipient.Name = Forms![Bestellungen]![E-Mail]

' 1= "TO:"; 2="CC:"; 3="BCC:"
Recipient.Type = 1



' Entweder Adresse im Adreßbuch finden
' oder als Internet Adresse [E-Mail-Adresse entfernt]
' auswerten lassen
Recipient.Resolve
End With



' Alle Änderungen im Nachrichten Objekt speichern
Message.Update



' E-Mail absenden
' Mit Parameter ShowDialog := True kann die neue
' Nachricht vor dem Absenden noch einmal geprüft
' werden, ansonsten auf False setzen
Message.SEND ShowDialog:=True

Session.LOGOFF
MsgBox ("Nachricht wurde versandt")



Set Session = Nothing ' Object Variable löschen.


MAPIExit:

Exit Sub


MAPITrap:

errObj = Err - vbObjectError 'OLE Automation Fehler
Select Case errObj
Case 275 ' Das Absenden der Nachricht
' wurde abgebrochen
Resume MAPIExit
Case Else
errMsg = MsgBox("Error " & errObj & " kam zurück.")
Resume MAPIExit
End Select
End If
End Sub
303
1.83k
7
Actions
Hide topic messages
Enable infinite scrolling
Previous
1 ... 567891011 ... 16
Next
All posts under this topic will be deleted ?
Pending draft ... Click to resume editing
Discard draft