Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

Frage Entwicklung

Mitglied: DerLomi

DerLomi (Level 1) - Jetzt verbinden

27.03.2009, aktualisiert 12:03 Uhr, 10626 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
Outlook & Mail
gelöst Emails werden ohne Signatur und Text versendet - Outlook 2010 (11)

Frage von IT-com zum Thema Outlook & Mail ...

Outlook & Mail
gelöst Notwendige bzw Überflüssige Angaben in Geschäftlicher Email-Signatur (11)

Frage von Knorkator zum Thema Outlook & Mail ...

Outlook & Mail
gelöst Outlook vba Email Anhang in Ordner speichern (3)

Frage von Daywalkercxp zum Thema Outlook & Mail ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Windows 10
Seekrank bei Windows 10 (18)

Frage von zauberer123 zum Thema Windows 10 ...

Windows 10
Windows 10 Fall Creators Update Fehler (14)

Frage von ZeroCool23 zum Thema Windows 10 ...

Router & Routing
gelöst Getrenntes Routing bei VoIP und Daten (12)

Frage von Hobbystern zum Thema Router & Routing ...