E-Mail Signature in VBA Code einbinden.

Hallo zusammen,
ich habe versucht in einen VBA Code für eine Automatische E-Mail die Signature mit einzufügen. Leider bekomme ich es nicht hin. Könnt ihr mir helfen?
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hallo Jonas" & vbNewLine & vbNewLine & _
"In der Datei A-Factory-Contura-Vitra Complaints.xlsm habe ich einen neuen Eintrag gemacht. " & vbNewLine & _
"Datei" & vbNewLine & vbNewLine & _
"Grüße Boris"
On Error Resume Next
With xOutMail
.To = "E-Mail Adresse"
.CC = ""
.BCC = ""
.Subject = "Neuer Eintrag in Datei: A-Factory-Contura-Vitra Complaints.xlsm"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
Danke euch.
Grüße Boris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Boris,
so sollte es funktionieren.....

Code:


Private Sub CommandButton1_Click()
' Updated by Extendoffice 2017/9/14
  Dim xOutApp As Object
  Dim xOutMail As Object
  Dim xMailBody As String

  On Error Resume Next
  Set xOutApp = CreateObject("Outlook.Application")
  Set xOutMail = xOutApp.CreateItem(0)
  xMailBody = "Hallo Jonas" & vbNewLine & vbNewLine & _
  "In der Datei A-Factory-Contura-Vitra Complaints.xlsm habe ich einen neuen Eintrag gemacht. " & vbNewLine _
      & _
  "Datei" & vbNewLine & vbNewLine & _
  "Grüße Boris"
  On Error Resume Next
  With xOutMail
      .GetInspector.Display
      .To = "E-Mail Adresse"
      .CC = ""
      .BCC = ""
      .Subject = "Neuer Eintrag in Datei: A-Factory-Contura-Vitra Complaints.xlsm"
      .body = xMailBody & .body
  End With
  On Error GoTo 0
  Set xOutMail = Nothing
  Set xOutApp = Nothing
End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Code:

Private Sub CommandButton1_Click()
  With CreateObject("Outlook.Application").CreateItem(0)
    .GetInspector.Display
    .To = "E-Mail Adresse"
    .Subject = "Neuer Eintrag in Datei: A-Factory-Contura-Vitra Complaints.xlsm"
    .body = Replace("Hallo Jonas¶¶" _
          & "In der Datei A-Factory-Contura-Vitra Complaints.xlsm habe ich einen neuen Eintrag gemacht." _
          & "¶¶Grüße Boris", "¶", vbLf) _
          & .body
  End With
End Sub

If Doc.Bookmarks.Exists("_MailAutoSig") Then Set Bkmrk = Doc.Bookmarks("_MailAutoSig") If Not Bkmrk Is Nothing Then Bkmrk.Select Doc.Windows(1).Selection.Delete 'Bkmrk.Range.Text = "qwe" ' oder "" für löschen End If End If

Beliebteste Forumthreads (12 Monate)

E-Mail Signature in VBA Code einbinden.

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

E-Mail Signature in VBA Code einbinden.

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread