Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst bild in email-signatur einfügen per vba

Mitglied: DerLomi

DerLomi (Level 1) - Jetzt verbinden

27.03.2009, aktualisiert 12:03 Uhr, 10927 Aufrufe, 3 Kommentare

Hallo Leute,

hab ein kleines Problem. Bei uns im Betrieb lesen wir die Signaturen für Outlook 2007 per VB-Script ein. Funktioniert auch alles super.

Jetzt kommt das Problem:
Chef kam heute an und möchte das per VB-Script ein Bild (das auf dem Server liegt) in die Signatur mit übernommen wird.
Habe mich schon tod-gegoogled. Hab zwar einen ansatz gefunden, das problem dabei is das ich eine Zuweisung nur auf einem Image-Objekt machen kann.
ich wüsste nicht wie ich dort ein Image-Objekt einfügen sollte, sodass die zuweisung funktionieren würde

Funktioniert das ganze auch per Zeilenangabe?

Falls dies nicht möglich sein sollte, gibt es eine andere lösung.

Danke schonmal im Vorraus

DerLomi
Mitglied: napperman
27.03.2009 um 13:53 Uhr
Wir nutzen für die Signatureinbindung Outlooksignature.exe (mal nach googeln).
Damit kann man dann die Daten der User aus dem AD ziehen und einfach eine html mit
Platzhaltern und Bild erstellen.
Bitte warten ..
Mitglied: godlie
29.03.2009 um 16:46 Uhr
Das geht sehr einfach sogar imt AD Anbindung

01.
'On Error Resume Next 
02.
 
03.
Dim depart 
04.
depart = "" 
05.
Set objSysInfo = CreateObject("ADSystemInfo") 
06.
 
07.
strUser = objSysInfo.UserName 
08.
Set objUser = GetObject("LDAP://192.168.240.1:389/"&strUser) 
09.
arrUser = objUser.GetEx("memberOf") 
10.
 
11.
strFullName = objUser.FullName 
12.
words = split(strFullname) 
13.
strName=words(1) 
14.
strSurname=words(0) 
15.
strTitle = objUser.Title 
16.
strDesc=objUser.description 
17.
msgBox(depart) 
18.
 
19.
strCompany1 = "Firma" 
20.
strCompany2 = "Musterstraße 1" 
21.
strCompany3 = "A-xxxx" 
22.
strTelP="+43 xxx" 
23.
strFax="+43 xxx" 
24.
strMail=LCASE(words(0)) & "." & LCASE(words(1)) & "@tzu.at" 
25.
strLogo="h:\Vorlagen\logo_email.jpg" 
26.
strWeb="http://www.domain.tld" 
27.
 
28.
strPhone= strTelP & objUser.TelephoneNumber 
29.
'strDisclaimer  = "This message may contain confidential and/or legally privileged information and is intended for use by the indicated addressee only. If you are not the intended addressee: (a) any disclosure, reproduction, distribution or action you take on the basis of the contents of this message (except for this instruction) is strictly prohibited; (b) please notify us immediately by reply e-mail and delete this message from your system." 
30.
 
31.
'strDisclaimer1 = "Haftungssausschluss / Disclaimer:" 
32.
'strDisclaimer2 = "Diese Nachricht enthält vertrauliche Informationen und ist ausschließlich für den Adressaten bestimmt. Jeder Gebrauch durch Dritte ist untersagt. Falls Sie die Daten irrtümlich erhalten haben, nehmen Sie bitte Kontakt mit dem Absender auf und entfernen Sie die Daten von jedem Computer und Datenträger." 
33.
'strDisclaimer3 = "This message contains confidential information and is intended solely for the use by the addressee. Any use of this message by a third person is prohibited. If you received this message in error, please contact the sender and delete the data from any computer and data storage." 
34.
 
35.
Set objWord = CreateObject("Word.Application") 
36.
 
37.
objword.visible=true 
38.
Set objDoc = objWord.Documents.Add() 
39.
Set objSelection = objWord.Selection 
40.
With objSelection.ParagraphFormat 
41.
    .Space1 
42.
    .SpaceAfter = 5 
43.
End With 
44.
 
45.
Set objEmailOptions = objWord.EmailOptions 
46.
Set objSignatureObject = objEmailOptions.EmailSignature 
47.
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries 
48.
 
49.
With objSelection.Font 
50.
    .Name = "Arial" 
51.
    .Size = 8 
52.
End With 
53.
 
54.
objSelection.TypeText "Mit freundlichen Grüßen" 
55.
objSelection.TypeParagraph() 
56.
if len(strTitle) > 0 then 
57.
objSelection.TypeText strtitle & " " & strName & " " & strSurname 
58.
else 
59.
objSelection.TypeText strName & " " & strSurname 
60.
end if 
61.
 
62.
objSelection.TypeParagraph() 
63.
 
64.
With objSelection.Font 
65.
  .Name = "Arial" 
66.
  .Size = 7.5 
67.
End With 
68.
 
69.
objSelection.TypeText "( " & strDesc & " )" 
70.
ObjSelection.TypeParagraph() 
71.
 
72.
With objSelection.Font 
73.
  .Name = "Arial" 
74.
  .Size = 8 
75.
End With 
76.
 
77.
objSelection.InlineShapes.AddPicture(strLogo) 
78.
objSelection.TypeParagraph() 
79.
 
80.
objSelection.TypeText strCompany1 & " " 
81.
objSelection.TypeText strCompany2 
82.
objSelection.TypeParagraph() 
83.
objSelection.TypeText strCompany3 
84.
objSelection.TypeParagraph() 
85.
 
86.
objSelection.TypeText "Tel.: " & strPhone 
87.
objSelection.TypeParagraph() 
88.
ObjSelection.TypeText "Fax: " & strFax 
89.
objSelection.TypeParagraph() 
90.
ObjSelection.TypeText "E-Mail: " 
91.
objSelection.HyperLinks.Add objSelection.Range,"mailto:"& strMail,,,strMail 
92.
objSelection.TypeParagraph() 
93.
objSelection.TypeText "Web: " 
94.
objSelection.HyperLinks.Add objSelection.Range,"http:\\"& strWeb,,,strWeb 
95.
'objSelection.TypeParagraph() 
96.
'Set rngParagraph = objSelection.Paragraphs(4).Range 
97.
'msgBox rngParagraph.Text 
98.
 
99.
Set objSelection = objDoc.Range() 
100.
 
101.
objSignatureEntries.Add "Signature", objSelection 
102.
objSignatureObject.NewMessageSignature = "Signature" 
103.
objSignatureObject.ReplyMessageSignature = "Signature" 
104.
 
105.
objDoc.Saved = true 
106.
objWord.Quit 
107.
msgBox "Signatur Erstellt"
Bitte warten ..
Mitglied: DerLomi
02.04.2009 um 13:26 Uhr
wunderbar schönen dank hat mir super geholfen

nur weiter so
ihr seit die besten ^^

lg tobi
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Excel mit VBA: Bild aus dem Internet einfügen

gelöst Frage von peterhaMicrosoft Office2 Kommentare

Hallo zusammen, ich habe gestern etliche vba-Schnipsel ausprobiert, aber keines hat so richtig hingehauen Ich möchte: Ein Bild aus ...

Grafik

Stapelverarbeitung Bild in neues Bild einfügen

Frage von KodaCHGrafik3 Kommentare

Guten Morgen Ich habe hier einen Ordner mit ganz vielen Bildern. Die grösse ist komplett unterschiedlich. Nun habe ich ...

VB for Applications

VBA Formel einfügen

Frage von Gimli3311VB for Applications4 Kommentare

Guten Tag Zusammen, ich bin es mal wieder und brauche eure Hilfe. Problem: Ich möchte die Termintreue angezeigt bekommen ...

VB for Applications

Excel VBA Formel "WENN" einfügen

gelöst Frage von chef1568VB for Applications2 Kommentare

Hallo zusammen, ich möchte per Excel-Makro folgende Formel eintragen: EXCEL: VBA: Leider bekomme ich hier immer einen anwendungsrelevanten Fehler ...

Neue Wissensbeiträge
Internet

Datendealing im WWW Tracking Methoden immer brutaler

Information von sabines vor 6 StundenInternet

Interessanter Artikel zum Thema Tracking im WWW und die immer "besseren" Methoden des Trackings. Professor Arvind Narayanan (Princeton-Universität) betreibt ...

Erkennung und -Abwehr

Ups: Einfaches Nullzeichen hebelte den Anti-Malware-Schutzt in Windows 10 aus

Information von kgborn vor 18 StundenErkennung und -Abwehr

Windows 10 ist das sicherste Windows aller Zeiten, wie Microsoft betont. Insidern ist aber klar, das es da Lücken, ...

Windows 10

Windows 10 on ARM: von Microsoft entfernte Info - Klartext, was nicht geht

Information von kgborn vor 20 StundenWindows 10

Windows 10 on ARM ist ja eine neue Variante, die Microsoft im Verbund mit Geräteherstellern am Markt etablieren will. ...

Microsoft
TV-Tipp: Das Microsoft-Dilemma
Information von kgborn vor 21 StundenMicrosoft12 Kommentare

Aktuell gibt es in Behörden und in Firmen eine fatale Abhängigkeit von Microsoft und dessen Produkten. Planlos agieren die ...

Heiß diskutierte Inhalte
Server
Route-Befehl Unterstützung (unter CMD)
gelöst Frage von FKRR56Server34 Kommentare

Guten Tag , i.M. habe ich Probleme über den CMD-Route-Befehl ein Routing auf einen entfernten Server zuzulassen. Der Server ...

Windows 10
Windows 10 (1709) Tastur und Maus wieder einschalten?
Frage von LochkartenstanzerWindows 1026 Kommentare

Moin, Ich habe von einem Kunden einen Win10-Rechner bekommen, bei dem weder Tastatur noch Maus geht. Die Hardware funktioniert ...

Firewall
RB2011 Firewall Rule eine bestimmte Mac oder IP Adresse nicht zu blockieren
Frage von lightmanFirewall15 Kommentare

Hallo liebes Forum mit ihren Spezialisten. Ich habe meine Firewall so konfiguriert das kein Endgerät ohne meine Speziellen Erlaubnis ...

Humor (lol)
Was könnte man mit einem Server machen? Idee gesucht
Frage von 2SeitenHumor (lol)15 Kommentare

Hey Zusammen Ich habe einen alten HP G2 Rackserver zu Hause rumliegen. 28GB Ram, 1xAMD Prozi mit etwa 2GHz. ...