Wie ich schon am Anfang geschrieben habe, ich bin Anfänger.
Hab gedacht, muß dass mit einer Signatur machen um die originale Sig. zu überschreiben.
Wie kriege ich jetzt die Adressen aus Excel in die Mail?
Wie ich schon am Anfang geschrieben habe, ich bin Anfänger.
Hab gedacht, muß dass mit einer Signatur machen um die originale Sig. zu überschreiben.
Wie kriege ich jetzt die Adressen aus Excel in die Mail?
So wie im Anhang sollte es ungefähr aussehen.
Die Nummern kannst du dann im Handy antippen und es fragt, ob du die Nummer wählen willst.
Es sind ca. 25 - 30 Adressen mit 1-3 Telefonnummern je nach dem wieviel eingetragen sind.
Die Quelldatei ist eine CSV und die Formatierung habe ich mit Word gemacht.
Kann man soviel Adressen überhaupt in einen String packen.
Oder ist es möglich die Adressen über eine Schleife in die Mail zu bekommen.
Ich stehe glaube ich auf dem Schlauch.
Wie bringe ich den Text von Word in die Mail bzw. in eine Variable.
In der Firma ist ein Standard Signatur angelegt.
deshalb habe ich gemeint man müßte die Original Signatur zwischen speichern
dann den neuen Text als neue Signatur wieder einfügen,
und am Ende die Original Signatur wieder laden.
wie bringe ich den Text in den Body
Hallo Water,
ich bin jetzt schon ein kleines Stück weiter.
Mit folgenden Code schreibt er mir dieses "Hallo" in den Body.
Wie kriege ich jetzt den Text der Worddatei in eine Variable.
Denke das es so geht.
_OL_ItemModify($oOutlook, $oItem, Default, "Body=Hallo") ; Überschreibt den Mail-Body mit dem neuen Text
Schriftgröße / Fettdruck ist kein Problem ist alles in Word hinterlegt.
Und sicherstellen, dass die angelegte Signatur auch verwendet wird, ist ja auch keine Gerhirnchirurgie.
Soviel Initiative erwarte ich mir einfach!
Damit hast du sicher recht, ich würde es wahrscheinlich an deiner Stelle genauso machen.
Sonst könntest du, für alle die zu bequem sind die Programme schreiben.
Ich schlage vor, Du beschreibst in einfachen Worten, was Du mit dem Skript erreichen willst. Dann kann man ja prüfen, ob das mit der Signatur der beste Weg ist
Es soll eine Mail auf das Handy des Fahrers gesendet werden.
Inhalt:
Telefonnumern Tour vom 01.01.2020
Hartmut Müller
12345 Musterhausen
Mobil: 0123-456789
Werner Maier
12345 Musterhausen
Privat: 0123-456789
Hans Muster
12345 Musterhausen
Privat: 0123-456789
Hannes Meyer
12345 Musterhausen
Privat: 0123-456789
Firma: 0123-456789
Mobil: 0123-456789
ca. 25 - 30 Adressen
Muss er unterwegs, die Tourtermine ändern oder anpassen hat er alle Kunden seiner Tour in der Mail
und kann bequem die Kunden anrufen und muss nicht erst in ca. 1500 Kontakten suchen.
Die Adressen sollen in den Body der Mail und nicht erst in eine Datei z. B. PDF oder DOC.
Bis jetzt war es so das die Telefonnummern auf der Rechnung standen.
Diese Zeile sah im schlimmsten Falle so aus: (0123-4567pr. 012346-89758Firm. o. Hans 0175-147) bei 3 Nummern wurde die letzte abgeschnitten.
Ist nicht mehr zeitgemäß und der Fahrer muß trotzdem in den Kontakten suchen.
Vielen Dank für
deine Geduld mit mir
Gruß Windi
Ich weiß eigentlich gar nicht was ich da mache.
Bin halt blutiger Anfänger.
Das mit der Word.au3 hat wunderbar geklappt.
Der Rest:
Ich kopiere es hier hin und da hin und es ist immer dasselbe.
Tut mir Leid das ich deine kostbare Zeit in Anspruch nehme.
Probier bestimmt schon 2 Wochen rum.
Ich kriegs einfach nicht hin weil mir der Bezug fehlt.
Es tut mir Leid aber ich kapiere es nicht.
Egal was ich mache, es kommt eine Mail ohne Body, oder überhaupt keine Mail.
Hallo Water,
habe mir das Beispiel angeschaut.
Da alles in englisch ist steige ich da nicht durch (trotz Übersetzer).
Ich komme trotzdem nicht weiter.
Die Mail wird erzeugt mit Betreff und Empfänger nur der Body wird nicht übertragen.
vielen Dank für deine Mühe.
Gruß Windi
Hier noch mal der Script:
#include <OutlookEx.au3>
#include <Word.au3>
Global $oOutlook = _OL_Open()
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)
;Worddatei schreiben
Global $oWord = _Word_Create ()
Global $oDoc = _Word_DocAdd ( $oWord )
$oSelection = $oWord.Selection
If $oWord.LanguageSettings.LanguageID($msoLanguageIDUI) = 1031 Then $sStyle = "Kein Leerraum"
$oSelection.Font.Bold = True ; Fett Schrift
$oSelection.Font.Underline = True ; Unterstreichen
$oSelection.Font.Size = 14 ; Schriftgröße
$oSelection.TypeText("Kundenliste Tour: ")
$oSelection.Font.Size = 12 ; Schriftgröße
$oSelection.TypeParagraph
$oSelection.TypeParagraph
Global $meineMailadress = "abcde@gmx.de"
Global $sBetreff = "Subject=" & "Telefonnummern Kunden Tour " &_NowDate ()
$oSelection = $oDoc.Range()
; Create the Signature
Global $iResult = _OL_MaiLSignatureCreate("Outlook-UDF-Test", $oWord, $oSelection)
If @error <> 0 Then
MsgBox(16, "OutlookEX UDF: _OL_MailSignatureCreate Example Script", "Signature 'Outlook-UDF-Test' could not be created. @error = " & @error & ", @extended: " & @extended)
Else
MsgBox(64, "OutlookEX UDF: _OL_MailSignatureCreate Example Script", "Signature 'Outlook-UDF-Test' successfully created.")
EndIf
sendemail($meineMailadress, $sBetreff, $iresult) ; Funktion sendmail aufrufen
;---------------------------------------------
Func sendemail($meineMailadress, $sBetreff, $iresult)
_OL_MailSignatureSet("Sigalt-2", "Sigalt-2") ; in Outlook vorhandene Signatur
Local $oItem = _OL_ItemCreate($oOutlook, $olMailItem, "", "", $sBetreff)
_OL_ItemModify($oOutlook, $oItem, Default, "Body=") ; Überschreibt den Mail-Body mit dem neuen Text
Local $aRecipients = $meineMailadress
_OL_ItemRecipientAdd($oOutlook, $oItem, Default, $olTo, $aRecipients)
$oItem.BodyFormat = $olFormatHTML
$oItem.GetInspector
$sBody = $oItem.HTMLBody
$oItem.HTMLBody = $sBody
$oItem.Display
_OL_MailSignatureSet("Sigalt-1", "Sigalt-1") ; zurückstellen auf Standard-Signatur
EndFunc ;==>sendmailma31
Hallo zusammen,
ich möchte eine Signatur in Word erstellen.
Das funktioniert soweit auch gut.
Mein Problem ist, es wird eine leere Mail erzeugt.
Wie kriege ich den inhalt in die Mail.
Bin absoluter Anfänger und habe es mir zusammen kopiert.
Bitte um Hilfe!
liebe Grüße
Windi
#include <OutlookEx.au3>
#include <Word.au3>
;Worddatei schreiben
Global $oWord = _Word_Create ()
Global $oDoc = _Word_DocAdd ( $oWord )
$oSelection = $oWord.Selection
$oSelection.Font.Bold = True ; Fett Schrift
$oSelection.Font.Underline = True ; Unterstreichen
$oSelection.Font.Size = 14 ; Schriftgröße
$oSelection.TypeText("Kundenliste Tour: ")
$oSelection.Font.Size = 12 ; Schriftgröße
$oSelection.TypeParagraph
$oSelection.TypeParagraph
Global $meineMailadress = "abcde@gmx.de"
Global $sBetreff = "Subject=" & "Telefonnummern Kunden Tour " &_NowDate ()
Global $oOutlook = _OL_Open()
sendemail($meineMailadress, $sBetreff, $oDoc) ; Funktion sendmail aufrufen
;---------------------------------------------
Func sendemail($meineMailadress, $sBetreff, $oDoc)
_OL_MailSignatureSet("Sigalt-2", "Sigalt-2") ; in Outlook vorhandene Signatur
Local $oItem = _OL_ItemCreate($oOutlook, $olMailItem, "", "", $sBetreff)
_OL_ItemModify($oOutlook, $oItem, Default, "Body=") ; Überschreibt den Mail-Body mit dem neuen Text
Local $aRecipients = $meineMailadress
_OL_ItemRecipientAdd($oOutlook, $oItem, Default, $olTo, $aRecipients)
$oItem.BodyFormat = $olFormatHTML
$oItem.GetInspector
$sBody = $oItem.HTMLBody
$oItem.HTMLBody = $sBody
$oItem.Display
_OL_MailSignatureSet("Sigalt-1", "Sigalt-1") ; zurückstellen auf Standard-Signatur
EndFunc ;==>sendmailma31
Die Worddatei sieht nachfolgend aus:
Telefonnumern Tour vom 01.01.2020
Hartmut Müller
12345 Musterhausen
Mobil: 0123-456789
Werner Maier
12345 Musterhausen
Privat: 0123-456789
Hans Muster
12345 Musterhausen
Privat: 0123-456789
Hannes Meyer
12345 Musterhausen
Privat: 0123-456789
Firma: 0123-456789
Mobil: 0123-456789
Super, Danke!
Danke habs gefunden.
Eine Frage noch wie kriege ich die Standart Signaturen aus der Mail.
Hallo Water,
du bist der größte.........
vielen Dank funktioniert richtig gut.
Super Danke,
hat geklappt.
Gehen wir mal ans Werk.
Danke Water,
Habe die OutlookEX herunter geladen.
Ist wie erwartet alles in Englisch,
Hatte das schon mal angeguckt krieg die UDF nicht in den Editor.
Wie geht das?
Hallo zusammen,
ich habe ein kleines Problem mit Outlook und Umlauten.
Ich würde mich freuen wenn ihr mir helfen könnt.
Liebe Grüße
Windi
Hier mein Sript:
#include <inet.au3>
; Pfade
Global $MailProgramm = "C:\Program Files (x86)\Microsoft Office\Office12\OUTLOOK.EXE"
Global $Body = "Tour Müller & Sohn"
Global $adress = "abc@gmx.de" ;Mailempfänger
Global $subject = "Tour auswählen"
Global $PID = ProcessExists($MailProgramm)
If $PID Then
_INetMail(GUICtrlRead($adress), GUICtrlRead($subject), GUICtrlRead($body))
Sleep(2000)
;Send("!s")
Else
Run($MailProgramm)
WinWaitActive("Posteingang - Microsoft Outlook")
_INetMail($adress, $subject, $Body)
Sleep(2000)
;Send("!s")
Sleep(1500)
Send("!{F4}")
EndIf
Hallo,
ich wollte mich nochmal bei allen bedanken.
Hab noch ein bisschen in der Excel Datei geändert und probiert.
Wollte die Exceldatei in eine Exe umwandeln aber da meckert die Windows Firewall.
Ich weiß jetzt nicht warum, aber die Fehlermeldung ist weg.
Liebe Grüße und herzlichen Dank
Windi
ich habe alle Instance durchprobiert.
Es kommt überall der gleiche Fehler :
Sub Window nicht ermittelbar
ich weiß auch nicht, ob das gemeint war den ich bin absoluter Anfänger.
Gruß Windi
OK Danke,
hab's so gemacht.
Die Fehlermeldungen sind weg
Msgbox bringt:
Fehler:
Sub Window nicht ermittelbar
Gruß Windi