uweziegenhagen.de

\documentclass{scrartcl}
\usepackage[ansinew]{inputenc}
\usepackage[T1]{fontenc}
\usepackage[ngerman]{babel}
\usepackage[]{lpic}
\author{Uwe Ziegenhagen}
\title{}
\begin{document}
 
\begin{figure}
\centering
\begin{lpic}[grid,coords(20)]{Arduino}
\lbl[t]{12,40;\textcolor{green}{\small \textbf{USB-Port}}}
\lbl[t]{19,20;\textcolor{green}{\textbf{9--12V}}}
\lbl[t]{55,20;\textcolor{green}{\textbf{ATMega 328}}}
\end{lpic}
\caption{Arduino Duemilanove}
\end{figure}
\end{document}

# open connection to the server
$conn = New-Object System.Data.SqlClient.SqlConnection("Data Source=localhost; Initial Catalog=Posh; Integrated Security=SSPI")
$conn.Open()
 
# create command object
$cmd = $conn.CreateCommand()
# create statement
$cmd.CommandText ="INSERT myTable VALUES ('Hello', 'World', 123)"
# execute command
$cmd.ExecuteNonQuery()
# close connection
$conn.Close()

# open connection to the server
$conn = New-Object System.Data.SqlClient.SqlConnection("Data Source=localhost; Initial Catalog=Posh; Integrated Security=SSPI")
$conn.Open()
 
# create command object
$cmd = $conn.CreateCommand()
# create statement
$cmd.CommandText ="INSERT myTable VALUES ('Hello', 'World', 123)"
# execute command
$cmd.ExecuteNonQuery()
# close connection
$conn.Close()

# Uwe Ziegenhagen, 20101207
 
# read addresses, tab-delimited
$entries = Import-Csv -Delimiter "`t" c:\adresses.txt
# change to directory of PDF pages
cd c:\Email_Sende_Aktion\
# user counter variable ($i contains an object)
$j = 0
foreach ($i in $entries){
$j = $j +1 
# take filename of new PDF from CSV
$filename = $i.addressid + ".pdf"
# calculate pages to be extracted
$pagestoextract = "A" + $j + "-" + ($j+1)
# call pdftk
pdftk A= bigserialletter.pdf cat $pagestoextract output $filename 
$j = $j +1 
}

# generate Encoding object for UTF8 (no äüö otherwise)
$encoding = [System.Text.Encoding]::UTF8
 
# Import email addresses and fund ids
$files = Import-Csv -Delimiter "`t" c:\Email_Sende_Aktion\adresses.txt
 
# read mail body, preserve line breaks
# http://www.eggheadcafe.com/software/aspnet/33110753/passing-a-string-with-linebreaks-to-a-com-object.aspx
$body  = [io.file]::ReadAllText("c:\Email_Sende_Aktion\mailbody.txt")
 
# just a counter for checking
$t = 0;
foreach ($i in $files){
	# inc counter
	$t = $t +1
	# cat body from the different parts
	$usedbody = "Sehr geehrte/r " + $i.Anrede.Trim() + ". " + $i.Nachname.Trim() + "," + $body 
	# find the individual attachment based on addressid
	$file = "c:\Email_Sende_Aktion\" + $i.addressid + ".pdf"
	# send message
	 send-mailmessage -Encoding $encoding -From me@me.com -BCC notme@me.com -To $i.RealMail -Subject "Kundeninformation Foobar"  -Body $usedbody -Smtpserver nameofexchangeserver -Attachments  $file
	$t
}

using System.IO;
using System.Text;
using iTextSharp.text;
using iTextSharp.text.pdf;
 
namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
            Document pdfDocument = new Document();
            PdfWriter.GetInstance(pdfDocument, new FileStream("C:\\hallo.PDF", FileMode.Create));
            pdfDocument.Open();
            pdfDocument.Add(new Paragraph("Ich bin ein Absatz"));
            pdfDocument.Close();
        }
    }
}