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. 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...

  3. Grosses Problem in Outlook

    in Microsoft Outlook Hilfe
    Grosses Problem in Outlook: Hallo zusammen Habe Mails gesucht und sie werden auch angezeigt. Teilweise mit Büroklammer das heisst sie haben Anhang. Nur leider sehe ich keine Anhänge in den Mails. Wo sind die? Wie kann man...

  4. PDF-Problem bei outlook

    in Microsoft Outlook Hilfe
    PDF-Problem bei outlook: aus dem angehängten pdf Dokument schredderte Microsoft dies zusammen (Bild als Anlage). Ist das normal bei MS?

  5. Mails in Outlook farblich markieren wenn Zeichen hinter Wort

    in Microsoft Outlook Hilfe
    Mails in Outlook farblich markieren wenn Zeichen hinter Wort: Hallo, ich benötige Hilfe bei der farblichen Markierung, bedingten Formatierung von Mails in Outlook. Wir sind eine Arztpraxis und haben eine Online-Terminvergabe. Nach dem Absenden eines...

  6. Outlook (Classic) synchronisiert GMail sehr langsam – immer kompletter Abruf?

    in Microsoft Outlook Hilfe
    Outlook (Classic) synchronisiert GMail sehr langsam – immer kompletter Abruf?: Hallo zusammen, ich habe Microsoft 365 (Office) frisch auf einem neuen Windows-11-Rechner installiert. Soweit läuft alles gut – nur mit Outlook (Classic) habe ich ein Problem bei der...

  7. Outlook synchronisiert Gmail-Ordner nicht vollständig (Office 2021 zu M365)

    in Microsoft Outlook Hilfe
    Outlook synchronisiert Gmail-Ordner nicht vollständig (Office 2021 zu M365): Hallo zusammen, ich habe ein kleines Synchronisationsproblem und hoffe, Ihr könnt mir weiterhelfen. Auf meinem alten Rechner (Windows 10) nutze ich Office 2021 mit Outlook. Auf meinem neuen...

  8. Synch zwischen MS Outlook und Strato nicht vollständig

    in Microsoft Outlook Hilfe
    Synch zwischen MS Outlook und Strato nicht vollständig: Servus und Hallo an alle und schon mal Danke für eine hoffentliche Hilfe. Windows 11 mit einer MS Office 365 subscription und Office Programmen installiert am PC. Synchronisierung mit meinem...
  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