Thema Datum  Von Nutzer Rating
Antwort
Rot Signatur wird nicht mehr angezeigt (Lotus Notes)
 30.08.2019 08:21:35 Marc
NotSolved
30.08.2019 08:22:59 Marc
Solved

Ansicht des Beitrags:
Von:
Marc		 Datum:
30.08.2019 08:21:35		 Views:
731		 Rating:
     
Antwort:
  Ja
Thema:
Signatur wird nicht mehr angezeigt (Lotus Notes)
Hallo der folgende Code hat bisher Prima Funktioniert. Meine Signatur wurde bisher immer mit angefügt an der eigentlichen Nachricht. Von heute auf Morgen ohne das ich wüsste irgendwas verändert zu haben fehlt die Signatur in der erstellten Mail. Private Sub CommandButton1_Click() 'Variablen deklarieren Dim bemerkungerkung As String Dim nachname As String Dim vorname As String Dim personalnummer As String Dim appWord As Object Dim docWord As Object Dim Dateiname As String Dim pfad1 As String Dim pfad2 As String Dim sText As String Dim sEmpfang As String Dim sBetrifft As String Dim session As Object Dim db As Object Dim doc As Object Dim ws As Object Dim sKopie As String Dim AttachMe As Object Dim DerAnhang As Object Dim user As String Dim server As String Dim mailfile As String Dim sBlindKopie As String Dim vAn As Variant Dim vCopy As Variant Dim vBlind As Variant Dim sAnhang As String On Error GoTo Fehler 'Variablen initialisieren nachname = UserForm5.TextBox1.Text vorname = UserForm5.TextBox2.Text personalnummer = UserForm5.TextBox3.Text bemerkung = TextBox1.Text bestellart = ComboBox1.Value 'Funktionscode Set appWord = CreateObject("word.application") appWord.Visible = False Set docWord = appWord.Documents.Add("C:\Pfad ist Streng geheim") docWord.ContentControls(1).Range.Text = nachname docWord.ContentControls(2).Range.Text = vorname docWord.ContentControls(3).Range.Text = personalnummer docWord.ContentControls(4).Range.Text = "Nutzer neu" docWord.ContentControls(5).Range.Text = bemerkungerkung 'Speichern und Schließen pfad2 = Sheets("Arbeitsblatt").Range("O3").Value Dateiname = "LoNo Anforderung " & UserForm5.TextBox1.Value & " " & UserForm5.TextBox3.Value docWord.SaveAs filename:=pfad2 & "\" & Dateiname & ".docx" docWord.Close SaveChanges:=wdDoNotSaveChanges 'In LoNo schieben sText = "Guten Tag," & vbCrLf & vbCrLf & "Streng Geheim." & vbCrLf & vbCrLf & "siehe Anhang" sText = Replace(sText, vbCrLf, Chr(10)) sEmpfang = "Streng Geheim" sBetrifft = "Streng Geheim" & vbCrLf & "hier: " & UserForm5.TextBox2.Value & " " & UserForm5.TextBox1.Value & " " & UserForm5.TextBox3.Value vAn = Split(sEmpfang, " ; ") ' sAnhang = pfad2 & "\" & Dateiname & ".docx" Set session = CreateObject("notes.notessession") user = session.Username server = session.GetEnvironmentString("MailServer", True) mailfile = session.GetEnvironmentString("MailFile", True) Set db = session.getdatabase(server, mailfile) Set doc = db.createdocument() doc.Form = "Memo" doc.SendTo = vAn doc.Subject = sBetrifft doc.SAVEMESSAGEONSEND = True If sAnhang <> "" Then Set AttachMe = doc.CREATERICHTEXTITEM("Attachment") Set DerAnhang = AttachMe.EMBEDOBJECT(1454, "", sAnhang, "Attachment") End If Set ws = CreateObject("Notes.NotesUIWorkspace") ' Call ws.EDITDOCUMENT(True, doc) Set doc = ws.CURRENTDOCUMENT Call doc.GOTOFIELD("Body") Call doc.INSERTTEXT(sText) 'Sofort senden (Bei Bedarf) 'Call doc.Send(True) 'Funktion Beenden MsgBox "LoNo wurde erstellt und ist zum Senden bereit!" Unload Me UserForm5.Show 0 'Variablen leeren Aufraeumen: On Error Resume Next Set docWord = Nothing Set appWord = Nothing Set AttachMe = Nothing Set DerAnhang = Nothing Set ws = Nothing Set doc = Nothing Set db = Nothing Set session = Nothing Exit Sub Fehler: Resume Aufraeumen End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Signatur wird nicht mehr angezeigt (Lotus Notes)
 30.08.2019 08:21:35 Marc
NotSolved
30.08.2019 08:22:59 Marc
Solved