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. neue Outlook und habe Probleme mit den Einstellungen und der Darstellung

    in Microsoft Outlook Hilfe
    neue Outlook und habe Probleme mit den Einstellungen und der Darstellung: Hallo zusammen, seit neuestem habe ich das neue Outlook und habe Probleme mit den Einstellungen und der Darstellung. Ich hoffe, man kann mir hier helfen. 1. Mails werden per...

  3. Eine Datei automatisch anhängen, die jeden Tag anders heißt

    in Microsoft Outlook Hilfe
    Eine Datei automatisch anhängen, die jeden Tag anders heißt: Hallo in die Runde, ich habe eine bestimmte Outlook-Vorlage und möchte, dass wenn ich sie öffne, automatisch eine Datei angehängt wird, deren Namen täglich variiert, weil sie das aktuelle Datum...

  4. Dateiname der aktuellen Datei als Variable

    in Sonstiges
    Dateiname der aktuellen Datei als Variable: Hallo in die Runde, kann ich unter VBA (Excel/Outlook) den Namen der aktuellen Datei auslesen und in einer Variable weiterverarbeiten? Danke im Voraus, Andreas

  5. Outlook Suche

    in Microsoft Outlook Hilfe
    Outlook Suche: Hallo, ich nutze Office 2019 plus für den uni account. Wenn ich im Bereich Mail in das Feld "Alle Elemente durchsuchen" einen Begriff oder auch mehrere eingebe, passiert es sehr oft, dass in der...

  6. Outlook & Gmail – E-Mails vollständig vom Server abrufen?

    in Microsoft Outlook Hilfe
    Outlook & Gmail – E-Mails vollständig vom Server abrufen?: Hallo liebe Office-Nutzer, ich habe eine Frage zu Microsoft Outlook in Verbindung mit meinem Gmail-Postfach. Ich würde gerne alle E-Mails aus meinem Gmail-Konto in Outlook abrufen, sodass diese...

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

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