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. Outlook startet nicht mehr...

    in Microsoft Outlook Hilfe
    Outlook startet nicht mehr...: Hallo zusammen, Wir haben hier ein Problem auf einem PC. (auf den anderen beiden funktioniert alles) Es handelt sich um einen Standard PC mit i7 CPU auf Gigabyte Mainboard mit 16 GB DDR4 RAM....

  3. Outlook meckert, wenn E-Mail-Adresse als Klarname verwendet wird

    in Microsoft Outlook Hilfe
    Outlook meckert, wenn E-Mail-Adresse als Klarname verwendet wird: Hallo in die Runde, unsere Verwaltungsmitarbeiterin nutzt Outlook 365 (classic). Manchmal kommt es vor, dass sie eine Mail an alle Empfänger einer anderen Mail schicken möchte. Sie klickt dann...

  4. Outlook (Classik) zeigt Punkte zwischen den Zeichen

    in Microsoft Outlook Hilfe
    Outlook (Classik) zeigt Punkte zwischen den Zeichen: Hallo, ich wollte von Thunderbird auf Outlook umsteigen und beobachte nun ein seltsames Phänomen. Bei allen Texten, empfangene Mails oder auch Text den ich schreibe sind sind regelmäßig kleine...

  5. Outlook-Kalendereintrag erzeugen

    in Microsoft Excel Hilfe
    Outlook-Kalendereintrag erzeugen: Hallo zusammen, ich bin neu hier und habe nicht viel Ahnung von VBA in Excel. Ein Modul in VBA habe ich mir mithilfe einer YT-Anleitung erstellt. Aus dem Inhalt verschiedener Zellen in Zeile 2...

  6. eMail-Verteiler mit Outlook-Kontakten

    in Microsoft Outlook Hilfe
    eMail-Verteiler mit Outlook-Kontakten: Hallo zusammen, kann ich mit o365 in Outlook Kontakte anlegen, für die ich dann direkt in diesem Kontakt auswählen kann, ob und in welchen Mailverteilern sie landen sollen? Was ich schon probiert...

  7. Outlook classic Löschung

    in Microsoft Outlook Hilfe
    Outlook classic Löschung: Hallo User, ich habe folgendes Problem, ich wollt héute mein Outlook Posteingang alte Mails löschen,geht am Anfang auch gut nach einigen Löschungen kann ich keine weiteren Löschungen mehr...

  8. Outlook-Regeln sortieren / suchen

    in Microsoft Outlook Hilfe
    Outlook-Regeln sortieren / suchen: Hallo, ich nutze Outlook 2021 im Office-Bundle. Hatte vergeblich gehofft, dass der Umgang mit Regeln ENDLICH nicht mehr auf vorsintflutlichem Niveau verbleibt. Vielleicht bin ich aber auch blind....
  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