Ich habe hier mal einen Job für euch ;D
Ich brauche ein Programm, das aus einer Exeltabelle Namen, Adressen und Emailadressen auslesen kann.
In der Tabelle steht z.B.:
.
...A................B...................C
1.Mustermann...mm@bla.de...Musterhausen...
.
Ich hoffe, iht konntet mir soweit folgen, und mir vieleicht auch ein bischen helfen.
MfG: MasterOfTime
HI,
das ist einfach. xls, oder xlsx ? Oder gar csv 
Mega
wäre es da nicht leichter die excel zu versenden? (mit eventuell zuvor bearbeiten)
oder andere frage: wie sollen die daten in der email formatiert sein? sollen die einfach untereinander stehen?
kleines beispiel mit bildern und eine beispiel-exceldatei wären nicht schlecht.
[Blockierte Grafik: http://www.bilder-hochladen.net/files/thumbs/bd0m-5.jpg]
Hier ist ein Bild um es euch ein bischen besser zu erklären.
Die Adressen von bestimmten Personen sollen ausgelesen werden,
und an bestimmten Stellen eines Textdokuments (Word) eingefügt werden.
ich denke ich seh mir das heut abend mal an 
ich meld mich dann bei dir
Wenn du die Exceltabelle als csv speicherst, dann brauchst du nicht mal ein Excel Object.
evtl. kannst Du damit was anfangen, auch wenn es direkt für Excel ist:
E-Mail per Hyperlink versenden (funktioniert mit jedem Mailprogramm!).
[/autoit] [autoit][/autoit] [autoit]Sub eMail_Hyperlink()
Dim eMailEmpfaenger As String, eMailBetreff As String, TbBodyInhalt As String
'Anpassen:
'****************************************************************************************
eMailEmpfaenger = "Beispiel@test.net"
eMailBetreff = "Dein Betreff"
' In diesem Beispiel enthält der Textkörper den Inhalt der Zellen A1, A2, B1 und B2
' Natürlich kann auch ein vorgegebener Text angegeben werden ( TbBodyInhalt = "Dein Text")
' Die Abschnitte: '& "%0D%0A" &' erzeugen einen Zeilenumbruch
TbBodyInhalt = ActiveSheet.Range("A1").Value & "%0D%0A" & _
ActiveSheet.Range("B1").Value & "%0D%0A" & _
ActiveSheet.Range("A2").Value & "%0D%0A" & _
ActiveSheet.Range("B2").Value
'****************************************************************************************
Range("A1").Select
[/autoit] [autoit][/autoit] [autoit]ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"mailto:" & eMailEmpfaenger & "?subject=" & eMailBetreff & "&body=" & TbBodyInhalt
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Selection.Hyperlinks(1).Delete
End Sub
[/autoit]
