Office: Outlook im Vordergrund anzeigen/einblenden

Helfe beim Thema Outlook im Vordergrund anzeigen/einblenden in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Anne, nach der Zeile: With objWord Folgende Zeilen einfügen: Code: .Selection.Font.Name = "Arial" .Selection.Font.Size = 12... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Annemarie, 23. April 2019.

Seite 2 von 2
  1. NEPUMUK
    Nepumuk

    Outlook im Vordergrund anzeigen/einblenden


    Hallo Anne,

    nach der Zeile: With objWord

    Folgende Zeilen einfügen:

    Code:
     
    Nepumuk, 25. April 2019
    #16
  2. ANNEMARIE
    Annemarie
    mhh doch nicht so Einfach für mich mit der Formatierung...und extra Text bekomme ich auch gerade nicht in die Betreffzeile :-/
    Nachtrag: ahhh Formatierung probiere ich gleich aus :-)
     
    Annemarie, 25. April 2019
    #17
  3. NEPUMUK
    Nepumuk
    Hallo Anne,

    Extratext ist doch kein Problem. Oder?

    Code:
    Und zur Formatierung, in welche Zeile soll welches Wort wie formatiert werden?
     
    Nepumuk, 25. April 2019
    #18
  4. ANNEMARIE
    Annemarie

    Outlook im Vordergrund anzeigen/einblenden

    ja für dich kein Problem! :-) ...ich brauch da immer ewig :-/

    z.B. sollte nur das Wort "Bemerkung: fett und unterstrichen werden. >>alles andere in Arial 12 passt/funktioniert!

    ich will ja nicht unverschämt sein, aber bei dir geht das so schnell: Ich hätte gern noch ein Popupfenster, also eine Info das die Bemerkung vorm Senden ausgefüllt werden soll!
    :-*
     
    Annemarie, 25. April 2019
    #19
  5. NEPUMUK
    Nepumuk
    Hallo Anne,

    wir bekommen das schon hin.

    Teste mal:

    Option Explicit

    Public Sub CreateMail()

    Dim objOutlook As Object, objMail As Object
    Dim objWord As Object
    Dim strLinks(5) As String

    With Range("E5").Hyperlinks(1)
    strLinks(0) = .Address
    strLinks(1) = .TextToDisplay
    End With
    With Range("E6").Hyperlinks(1)
    strLinks(2) = .Address
    strLinks(3) = .TextToDisplay
    End With
    With Range("E7").Hyperlinks(1)
    strLinks(4) = .Address
    strLinks(5) = .TextToDisplay
    End With

    Call Range("A1:J38").CopyPicture

    Set objOutlook = CreateObject(Class:="Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)

    With objMail
    .BodyFormat = 2
    .To = "Empfänger@Porvider.de"
    .Subject = "Extratext " & Range("J2").Text
    Call .Display
    Set objWord = .GetInspector.WordEditor.Application
    With objWord
    .Selection.Font.Name = "Arial"
    .Selection.Font.Size = 12
    Call .Selection.TypeText(Text:="texttexttext " & Range("E1").Text & " TextTextText")
    Call .Selection.TypeParagraph
    Call .Selection.TypeParagraph
    .Selection.Font.Bold = &H98967E
    .Selection.Font.Underline = 1
    Call .Selection.TypeText(Text:="Bemerkung: ")
    .Selection.Font.Bold = &H98967E
    .Selection.Font.Underline = 0
    Call .Selection.TypeParagraph
    Call .Selection.TypeParagraph
    Call .Selection.TypeText(Text:=Range("D5").Text)
    Call .Selection.TypeParagraph
    Call .Documents(1).Hyperlinks.Add(Anchor:=.Selection.Range, Address:= _
    strLinks(0), TextToDisplay:=strLinks(1))
    Call .Selection.TypeParagraph
    Call .Selection.TypeParagraph
    Call .Selection.TypeText(Text:=Range("D6").Text)
    Call .Selection.TypeParagraph
    Call .Documents(1).Hyperlinks.Add(Anchor:=.Selection.Range, Address:= _
    strLinks(2), TextToDisplay:=strLinks(3))
    Call .Selection.TypeParagraph
    Call .Selection.TypeParagraph
    Call .Selection.TypeText(Text:=Range("D7").Text)
    Call .Selection.TypeParagraph
    Call .Documents(1).Hyperlinks.Add(Anchor:=.Selection.Range, Address:= _
    strLinks(4), TextToDisplay:=strLinks(5))
    Call .Selection.TypeParagraph
    Call .Selection.TypeParagraph
    Call .Selection.Paste
    Call .Selection.TypeParagraph
    Call .Selection.TypeParagraph
    Call .Selection.TypeText(Text:="Gruß")
    Call .Selection.TypeParagraph
    Call .Selection.TypeText(Text:="Annemarie")
    Call .Selection.HomeKey(Unit:=6)
    End With
    End With
    Set objWord = Nothing
    Set objMail = Nothing
    Set objOutlook = Nothing
    Call AppActivate(Title:=Application.Caption, Wait:=False)
    Call MsgBox("Bitte das Eintragen der Bemerkung nicht vergessen.", vbExclamation, "Hinweis")
    Application.WindowState = xlMinimized
    End Sub
     
    Nepumuk, 25. April 2019
    #20
  6. ANNEMARIE
    Annemarie
    Super*10points
    wenn in der Mail etwas hinter die Bemerkung geschrieben wird sollte dies allerdings nicht mit fett formatiert werden! :-)
     
    Annemarie, 25. April 2019
    #21
  7. NEPUMUK
    Nepumuk
    Hallo Anne,

    teste mal:

    Option Explicit

    Public Sub CreateMail()

    Dim objOutlook As Object, objMail As Object
    Dim objWord As Object
    Dim strLinks(5) As String

    With Range("E5").Hyperlinks(1)
    strLinks(0) = .Address
    strLinks(1) = .TextToDisplay
    End With
    With Range("E6").Hyperlinks(1)
    strLinks(2) = .Address
    strLinks(3) = .TextToDisplay
    End With
    With Range("E7").Hyperlinks(1)
    strLinks(4) = .Address
    strLinks(5) = .TextToDisplay
    End With

    Call Range("A1:J38").CopyPicture

    Set objOutlook = CreateObject(Class:="Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)

    With objMail
    .BodyFormat = 2
    .To = "Empfänger@Porvider.de"
    .Subject = "Extratext " & Range("J2").Text
    Call .Display
    Set objWord = .GetInspector.WordEditor.Application
    With objWord
    .Selection.Font.Name = "Arial"
    .Selection.Font.Size = 12
    Call .Selection.TypeText(Text:="texttexttext " & Range("E1").Text & " TextTextText")
    Call .Selection.TypeParagraph
    Call .Selection.TypeParagraph
    .Selection.Font.Bold = &H98967E
    .Selection.Font.Underline = 1
    Call .Selection.TypeText(Text:="Bemerkung:")
    .Selection.Font.Bold = &H98967E
    .Selection.Font.Underline = 0
    Call .Selection.TypeText(Text:=" ")
    Call .Selection.TypeParagraph
    Call .Selection.TypeParagraph
    Call .Selection.TypeText(Text:=Range("D5").Text)
    Call .Selection.TypeParagraph
    Call .Documents(1).Hyperlinks.Add(Anchor:=.Selection.Range, Address:= _
    strLinks(0), TextToDisplay:=strLinks(1))
    Call .Selection.TypeParagraph
    Call .Selection.TypeParagraph
    Call .Selection.TypeText(Text:=Range("D6").Text)
    Call .Selection.TypeParagraph
    Call .Documents(1).Hyperlinks.Add(Anchor:=.Selection.Range, Address:= _
    strLinks(2), TextToDisplay:=strLinks(3))
    Call .Selection.TypeParagraph
    Call .Selection.TypeParagraph
    Call .Selection.TypeText(Text:=Range("D7").Text)
    Call .Selection.TypeParagraph
    Call .Documents(1).Hyperlinks.Add(Anchor:=.Selection.Range, Address:= _
    strLinks(4), TextToDisplay:=strLinks(5))
    Call .Selection.TypeParagraph
    Call .Selection.TypeParagraph
    Call .Selection.Paste
    Call .Selection.TypeParagraph
    Call .Selection.TypeParagraph
    Call .Selection.TypeText(Text:="Gruß")
    Call .Selection.TypeParagraph
    Call .Selection.TypeText(Text:="Annemarie")
    Call .Selection.HomeKey(Unit:=6)
    End With
    End With
    Set objWord = Nothing
    Set objMail = Nothing
    Set objOutlook = Nothing
    Call AppActivate(Title:=Application.Caption, Wait:=False)
    Call MsgBox("Bitte das Eintragen der Bemerkung nicht vergessen.", vbExclamation, "Hinweis")
    Application.WindowState = xlMinimized
    End Sub
     
    Nepumuk, 25. April 2019
    #22
  8. ANNEMARIE
    Annemarie

    Outlook im Vordergrund anzeigen/einblenden

    Genial ! ! !
    @Nepumuk: du bist mein Held *winner
     
    Annemarie, 25. April 2019
    #23
  9. ANNEMARIE
    Annemarie
    oh ... doch noch was kleines:
    mit diesem Code schließt sich das aktuelle Tabellenblatt:
    Code:
    gibt es eine Möglichkeit auch das dazugehörige Excelfenster mit zu schließen ohne das weitere offene Excelfenster mit geschlossen werden?
     
    Annemarie, 25. April 2019
    #24
  10. NEPUMUK
    Nepumuk
    Hallo Anne,

    ganz unten in der Prozedur:

    Application.WindowState = xlMinimized
    Call ThisWorkbook.Save
    If Workbooks.Count = 1 Then Call Application.Quit Else ThisWorkbook.Close
    End Sub
     
    Nepumuk, 25. April 2019
    #25
  11. ANNEMARIE
    Annemarie
    *top
    DANKE !!
    funktioniert wieder mal perfekt !!
     
    Annemarie, 25. April 2019
    #26
Seite 2 von 2
Thema:

Outlook im Vordergrund anzeigen/einblenden

Die Seite wird geladen...

  1. Outlook im Vordergrund anzeigen/einblenden - Similar Threads - Outlook Vordergrund anzeigen

  2. Kann mit Outlook von ionos.de weder Emails abrufen noch welche versenden.

    in Microsoft Outlook Hilfe
    Kann mit Outlook von ionos.de weder Emails abrufen noch welche versenden.: Hallo zusammen Da ich nicht weiß, ob das Problem aus Windows 10 (22H2 alle Updates installiert) oder aus Outlook 2013 kommt, muss ich es leider auf beiden Foren veröffentlichen. Ich kann von zwei...

  3. Installations-CD von outlook 2007

    in Microsoft Outlook Hilfe
    Installations-CD von outlook 2007: Moin, ich hoffe, ihr haltet mich jetzt nicht für sehr naiv... Ich verwende noch gerne, weil unproblematisch, outlook 2007 ( auf Windows 11 Laptop). Nun habe ich mir scheinbar die...

  4. Outlook 2019 div. Probleme/Meldungen

    in Microsoft Outlook Hilfe
    Outlook 2019 div. Probleme/Meldungen: Hallo, ich beobachte bei Outlook manch seltsames Verhalten 1. Obwohl ich eine eMail nicht geöffnet habe, die ich in einen anderen Eingangsordner verschieben möchte, bekomme ich die Fehlermeldung...

  5. Outlook 2024: Einbinden von Konten nicht möglich

    in Microsoft Outlook Hilfe
    Outlook 2024: Einbinden von Konten nicht möglich: Ich habe durch eine notwendige Rechner-Neuinstallation auch mein bisheriges Outlook 2024 neu aufsetzen müssen. Darin enthalten auch meine dienstlichen Arbeitsaccounts (laufen alle auf...

  6. Outlook 2019

    in Microsoft Outlook Hilfe
    Outlook 2019: Problem Outlook Konto Kennwort. Ich kann nicht mehr eMails empfangen und senden. Bei Konto: Unter POP- und IMAP Einstellungen, Benutzername und dann auf Kennwort. Bei Kennwort habe ich mal aus...

  7. Unterordner verschwunden

    in Microsoft Outlook Hilfe
    Unterordner verschwunden: Hallo in die Runde, auf meinem Rechner ist Windows 10 installiert und Outlook 2016. Ich hatte im Posteingang einige Unterordner. Beim Export des Accounts mit allen Ordnern (PST-Datei) auf ein...

  8. VBA Outlook E-Mailvorschau aktualisieren wg. Flag-Text

    in Microsoft Outlook Hilfe
    VBA Outlook E-Mailvorschau aktualisieren wg. Flag-Text: Hallo Leute, ich benötige bei einem Problem euer Wissen. Ich setze in Outlook einen Flag "Erledig" mit einem individuellen Text (= MdName). Allerdingst wird mir dieser Text erst nach einem...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Akzeptieren Weitere Informationen...
    Information ausblenden