22. Februar 2012 17:02
24. Februar 2012 10:12
24. Februar 2012 10:26
24. Februar 2012 13:10
McClane hat geschrieben:Was soll denn in der Mail drin stehen? Erst mal nur die Signatur, oder ein vorgefertigter Inhalt plus Signatur?
24. Februar 2012 13:14
24. Februar 2012 13:19
24. Februar 2012 13:32
m_schneider hat geschrieben:Wenn du Bilder in einer Signatur verwenden möchtest muss diese HTML-Format haben (RTF macht keinen Sinn). Du könntest also eine HTML formatierte Signatur (mit Verweisen auf Bilder) in deine E-Mail einlesen.
24. Februar 2012 13:45
24. Februar 2012 14:08
McClane hat geschrieben:Das Einlesen läuft doch üblicherweise zeilenweise. Da macht es nichts, wenn die Gesamtdatei mehr als 1024 Zeichen hat.
24. Februar 2012 14:39
IF MyFile.OPEN('c:\temp\test.txt')THEN BEGIN
MyFile.CREATEINSTREAM(MyInStream);
WHILE NOT MyInStream.EOS DO BEGIN
MyInStream.READTEXT(Line);
( ... )
END;
MyFile.CLOSE;
END;
IF MyFile.OPEN('c:\temp\test.txt')THEN BEGIN
MyFile.TEXTMODE := TRUE;
WHILE MyFile.POS < MyFile.LEN DO BEGIN
MyFile.READ(Line);
( ... )
END;
MyFile.CLOSE;
END;
24. Februar 2012 14:54
24. Februar 2012 14:55
IF BodyFileName <> '' THEN BEGIN
BodyFile.TEXTMODE:=TRUE;
IF FILE.EXISTS(BodyFileName) THEN BEGIN
BodyFile.OPEN(BodyFileName);
LenOldFile := BodyFile.LEN -2;
FCounter := 2;
WHILE FCounter <= LenOldFile DO BEGIN
BodyFile.SEEK(FCounter);
BodyFile.READ(RVal);
FCounter := FCounter +1;
Body := Ansi.Ansi2Ascii(FORMAT(RVal));
BSTRConverterBody.AppendNextStringPortion(Body);
END;
BodyFile.CLOSE;
END;
END;
24. Februar 2012 15:29
24. Februar 2012 15:44
24. Februar 2012 15:58
24. Februar 2012 15:59
vsnase hat geschrieben:Hi,
Outlook speichert die Signatur(en) unter C:\Users\[UserName]\AppData\Roaming\Microsoft\Signatures bzw unter C:\Documents and Settings\[UserName]\Application Data\Microsoft\Signatures.
Volker
BodyFileName := ENVIRON('AppData') + '\Microsoft\Signatures\';
24. Februar 2012 16:18
McClane hat geschrieben:Du willst also je Zeile die ersten 2 Ziffern nicht einlesen, aber sonst schon zeilenweise vorgehen, richtig?
24. Februar 2012 17:26
IF MyFile.OPEN('c:\temp\test.txt')THEN BEGIN
MyFile.CREATEINSTREAM(MyInStream);
WHILE NOT MyInStream.EOS DO BEGIN
MyInStream.READTEXT(Line);
IF NOT FirstLineRead THEN BEGIN
Line:=COPYSTR(Line,3);
FirstLineRead:=TRUE;
END;
( ... )
END;
MyFile.CLOSE;
END;
28. Februar 2012 09:41
28. Februar 2012 10:14
McClane hat geschrieben:Dann müsste das doch so in etwa gehen:
- Code:
IF MyFile.OPEN('c:\temp\test.txt')THEN BEGIN
MyFile.CREATEINSTREAM(MyInStream);
WHILE NOT MyInStream.EOS DO BEGIN
MyInStream.READTEXT(Line);
IF NOT FirstLineRead THEN BEGIN
Line:=COPYSTR(Line,3);
FirstLineRead:=TRUE;
END;
( ... )
END;
MyFile.CLOSE;
END;
28. Februar 2012 10:18
28. Februar 2012 10:28
28. Februar 2012 10:38
McClane hat geschrieben:Erst mal liest er eine Datei aus. Das Einfügen in die Mail fehlt noch.
MyFile.CREATEOUTSTREAM(MyOUTStream);
MyOUTStream.WRITETEXT(Line);
28. Februar 2012 10:41
BSTRConverterBody.AppendNextStringPortion(Body);
28. Februar 2012 11:32