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

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

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

  5. Outlook-Kontakte verknüpfen und Filtern

    in Microsoft Access Hilfe
    Outlook-Kontakte verknüpfen und Filtern: Gelöscht

  6. Kann kein csv importieren in Outlook Kontakte

    in Microsoft Outlook Hilfe
    Kann kein csv importieren in Outlook Kontakte: Hallo in die Runde der Wissenden! Problem: Vom SAMSUNG Android Telefon als csv-file exportierte Kontakte werden nicht in Outlook-Kontakte importiert Beim Import in Outlook über KONTAKTE...

  7. Outlook mit T-Online - Passwort wird nicht akzeptiert

    in Microsoft Outlook Hilfe
    Outlook mit T-Online - Passwort wird nicht akzeptiert: Hallo, ich stehe kurz vor der kompletten Verzweifelung....Ich habe meinen Rechner neu installiert und möchte nun Office Outlook (2016) installieren. Bei der Installation kann ich den Provider...

  8. Outlook Neuling - Fragen

    in Microsoft Outlook Hilfe
    Outlook Neuling - Fragen: Hallo ihr Wissenden, fange gerade mit Outlook an und es hakt etwas. Konfiguration: Outlook im Firefoxbrowser, bisher wurden die Mails mit Thunderbird abgerufen Outlook lokal aus dem Officepaket....
  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