Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 10094 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 ..
Neuester Wissensbeitrag
Internet

Unbemerkt - Telekom Netzumschaltung! - BNG - Broadband Network Gateway

(3)

Erfahrungsbericht von ashnod zum Thema Internet ...

Ähnliche Inhalte
VB for Applications
gelöst Mit VBA im Monatskalender Datum suchen - aus anderer Datei einfügen (6)

Frage von Otto1699 zum Thema VB for Applications ...

Datenbanken
gelöst Access Report per Email versenden, hat jemand zufällig einen Code dafür(VBA) (7)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

VB for Applications
gelöst Outlook VBA, Alternative zu NewMailEx, neue bereits gelesene Email im Posteingang (12)

Frage von joha1908 zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (17)

Frage von JayyyH zum Thema Switche und Hubs ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

DSL, VDSL
DSL-Signal bewerten (14)

Frage von SarekHL zum Thema DSL, VDSL ...