Anzeige
Archiv - Navigation
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Signatur auswahl

Signatur auswahl
20.09.2018 14:19:47
klein
Hallo Zusammen,
ich öffne Outlook über Excel.
Ich habe mehrere Signaturen. Wie kann ich über VBA eine bestimmte Signatur auswählen
Meine Signatur heißt: kle
Dim objOLOutlook As Object
Dim objOLMail As Object
Dim strSignatur As String
Set objOLOutlook = CreateObject("Outlook.Application")
Set objOLMail = objOLOutlook.CreateItem(0)
With objOLMail
.To = "xxx"
.CC = "xxxx"
.BCC = ""
.Sensitivity = 0
.Importance = 1
.Subject = "XXXX_
.BodyFormat = 1
.Body = _ XXXXXXX
.Display
End With
Set objOLMail = Nothing
Set objOLOutlook = Nothing
End Sub

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Signatur auswahl
20.09.2018 14:34:23
japes36
hab die mal die Teile bei mir rauskopiert.
meins in meins.htm auf deinen entsprechenden Signamen anpassen
Dim SigString, Signature As String
'Signatur
SigString = Environ("appdata") & "\Microsoft\Signatures\meins.htm"
If Dir(SigString)  "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If
'Outlook Mailversand
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = ""
.Cc = ""
.Subject = Betreff
.HtmlBody = "

" & "Hallo zusammen," & "
_ " & "
" & _ MailText & "
" & _ "Viele Grüße" & _ Signature .Display '.Send End With Set MyOutApp = Nothing Set MyMessage = Nothing


Function GetBoiler(ByVal sFile As String) As String
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.readall
ts.Close
End Function

Anzeige
AW: Signatur auswahl
20.09.2018 14:38:43
japes36
PS:
Dim MyMessage As Object, MyOutApp As Object

AW: Signatur auswahl
20.09.2018 14:42:53
japes36
PS2:
wie deine Siganturen heißen findest Du im Ordner C:\Users\Max Mustermann\AppData\Roaming\Microsoft\Signatures
AW: Signatur auswahl
20.09.2018 16:01:44
klein
Sobald ich das Makro laufen lassen möchte kommt eine Fehlermeldung mit Sub oder Function nicht definiert und markiert mir getBpiler an....
Grüße
AW: Signatur auswahl
21.09.2018 08:40:36
japes36
Hi,
ja die Subs und Ends musst Du natürlich komplettieren...folgend mein kompletter Code (nicht relevantes bzw. privates Zeugs hab ihc entfernt
Sub Mail()
Dim MyMessage As Object, MyOutApp As Object
Dim SigString, Signature, MailText As String
'Mailtext
MailText = ""
'Signatur
SigString = Environ("appdata") & "\Microsoft\Signatures\meins.htm"
If Dir(SigString)  "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If
'Outlook Mailversand
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = ""
.Cc = ""
.Subject = Betreff
.HtmlBody = "Hallo zusammen," & "
" & "
" & _ MailText & "
" & _ "Viele Grüße" & _ Signature .Display '.Send End With Set MyOutApp = Nothing Set MyMessage = Nothing End Sub Function GetBoiler(ByVal sFile As String) As String Dim fso As Object Dim ts As Object Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2) GetBoiler = ts.readall ts.Close End Function

Anzeige
AW: Signatur auswahl
21.09.2018 08:52:37
japes36
...die Zeilenumbrüche im HTML Body musst Du natürlich anpassen auf das wie du es willst bzw benötigst.
VG
AW: Signatur auswahl
21.09.2018 15:59:10
klein
Hi,
super vielen Dank!!!
Grüße
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge