Office: (Office 365) E-Mail versenden via bestimmter Account und darin enthaltener Link

Hallo zusammen,

mit meiner "DJ Wurstfinger"-Art habe ich mir eine Prozedur zum Versand von Emails aus Access heraus erarbeitet. Bislang habe ich anschließend noch vieles manuell angepasst, jedoch nimmt die Anzahl nun derart zu, dass ich versuche, dies zu optimieren ;-)

Ich habe im Grunde genommen keine VBA-Kenntnisse, nur durch die Suche nach Lösungen und den damit verbundenen Grundvorstellungen sind da......

Hintergrund:
Ich sammel verschiedene Daten in meiner Datenbank. Nach Erfassung werden diese in einem Textfeld (in einem neuen Formular) samt Standardtextbausteinen (Text0) aufbereitet, sodass ich nur noch den Behfehlsbutton für das Erstellen der Email drücken muss. Kein automatischer Versand bislang, da ich ja immer manuell Änderungen vornehmen musste.

Anmerkungen: Empfänger, BCC und Betreff sind immer gleich.

Daher zwei Fragen:
Erste Frage:
Ich habe einen Hyperlink, den ich im Text0 einbaue und dort auch als aktiver Link angeszeigt wird, wenn ich diesen in meiner HTML-Mail ansehe, dann ist er nicht als HTML-Link aktiviert, sondern ich muss immer am Ende des Links noch ein Leerzeichen einfügen (manuell), damit der Link "heiß" ist....... any chance to solve that?

Zweite Frage:
Ich muss die E-Mails von einem bestimmten iMAP Account versenden, der in meinem Outlook auch entsprechend angelegt ist. Mein Befehl ist derzeit dieser (siehe unten). Wo und was muss ich einbauen, damit der Emailaccount "Versenderemail" genutzt wird?

Herzlichen Dank für Eure Hilfe vorab! Bleibt gesund!

Code:

Private Sub Befehl6_Click()
    fx_Email_Senden
End Sub

Private Sub fx_Email_Senden()   '-------------< fx_Email_Senden() >-------------

    '----< USE OUTLOOK APP >----

    Dim app_Outlook As Outlook.Application

    Set app_Outlook = New Outlook.Application

 
    '--< Email einstellen >--

    Dim objEmail As Outlook.MailItem

    Set objEmail = app_Outlook.CreateItem(olMailItem)

    objEmail.To = "musterempfänger@email.de"
    
    objEmail.BCC = "meine@email.de"
    
    objEmail.Subject = "Musterbetreff"

 

    objEmail.HTMLBody = Text0

    objEmail.Display True



    '< Abschluss >

    Set objEmail = Nothing

    Set app_Outlook = Nothing