Neuigkeiten:

Wenn ihr euch für eine gute Antwort bedanken möchtet, im entsprechenden Posting einfach den Knopf "sag Danke" drücken!

Mobiles Hauptmenü

Office 365 Access zu Outlook, E-Mail-Adressen werden nicht unterstrichen

Begonnen von thoco, November 07, 2018, 09:18:09

⏪ vorheriges - nächstes ⏩

thoco

Wir haben auf Office 365 umgestellt, zuvor lief die Datenbank auf Office 2016.
Aus unserer Datenbank werden E-Mails versendet, indem die Daten an Outlook übergeben werden (Empfänger, Betreff, ggf. eine PDF). Bisher war das kein Problem, in der neu erstellten Nachricht wurden immer die Empfängeradressen unterstrichen. Jetzt klappt das aber nicht mehr so gut, teilweise dauert es 10-15 Sekunden bis die Mail-Adressen erkannt werden.

Habt Ihr eine Idee, woran das liegen könnnte?


Beaker s.a.

@thoco
Wenn du zeigen würdest, wie dies
Zitatindem die Daten an Outlook übergeben werden
codiert ist, und dann noch erklären würdest, was dies
Zitatwurden immer die Empfängeradressen unterstrichen
und dies
Zitatteilweise dauert es 10-15 Sekunden bis die Mail-Adressen erkannt werden
mit einander zu tun hat, findet sich evtl. jemand, der dir helfen kann.
Ich wahrscheinlich nicht, aber hier gibt genug Helfer, die sich mit Outlook
(-Automatisierung) auskennen.
gruss ekkehard
Alles, was geschieht, geschieht. - Alles, was während seines Geschehens etwas anderes geschehen lässt, lässt etwas anderes geschehen. - Alles, was sich selbst im Zuge seines Geschehens erneut geschehen lässt, geschieht erneut. - Allerdings tut es das nicht unbedingt in chronologischer Reihenfolge.
(Douglas Adams, Mostly Harmless)

thoco

Public Function EmailVersenden2(Datei As String, MailSubject As String)
    Dim olApp As Outlook.Application
    Dim olNamespace As NameSpace
    Dim objMailItem As MailItem
    Dim objFolder As MAPIFolder
    'Dim MailSubject As String deaktiviert und oben zur Übergabe eingefügt'
    'Dim Mailbody As String ebenso'

    Set olApp = CreateObject("Outlook.Application")
    Set olNamespace = olApp.GetNamespace("MAPI")
    Set objFolder = olNamespace.GetDefaultFolder(olFolderInbox)
    Set objMailItem = objFolder.Items.Add(olMailItem)
    With objMailItem
        .Subject = MailSubject
        If Datei <> "" Then .Attachments.Add Datei
        .Display
    End With
    olApp.ActiveWindow
End Function

Mit unterstreichen meinte ich, die Zeit die Outlook braucht um die Mailadresse zu erkennen.


DF6GL

Hallo,

ist das späte Unterstreichen überhaupt ein Problem? Kann die Mail nicht versendet werden, bevor die EMail-Adresse unterstrichen ist?

Und wo befindet sich die Adresse (in welchem Kontakt, lokal oder auf dem MS-Server)?