Home-›Foren-›Outlook-›Outlook VBA-›Fehler beim Versenden von .oft-Vorlage via VBA
- This topic has 3 Antworten, 1 Stimme, and was last updated 23:14 um 3. April 2011 by Unbekannt.
- AutorBeitrag
- 27. März 2007 um 09:55 #40985UnbekanntParticipant
Hi,
ich versuche, in Excel im VBA-Code eine Mail über Outlook zu versenden. Bei normalen Mails, die ich komplett im Code zusammenbaue, funktioniert das auch problemlos. Jetzt will ich aber keine leere Mail erstellen, sondern eine neue Mail auf Grundlage einer Vorlage. Ich verwende folgenden Code:
[code]
Dim objOL As New Outlook.Application
Dim objMail3 As MailItem
Dim Vorlage As String
Vorlage = \“J:\\Sprache\\Translation.oft\“
Set objMail3 = objOL.CreateItemFromTemplate(Vorlage)
objMail3.To = \“Robert Meier\“
objMail3.Display
[/code]Bei der Zeile \“Set objMail3 = objOL.CreateItemFromTemplate(Vorlage)\“ bekomme ich dann aber immer folgende Fehlermeldung (nachdem bereits dei Makro-Sicherheitsabfrage für die Vorlage erschien!!):
Laufzeitfehler \‘-1698234281 (9ac70057)\‘:
Interner MAPI-Fehler: Einer Funktion wurde ein ungültiger Parameter übergeben. Wenden Sie sich an Ihren Administrator.Was soll das bedeuten? Ich habe im Internet keine passende Lösung gefunden. Ich bin mir jedoch sicher, dass ich die Mail auf Grundlage dieser Vorlage vor etwa einem halben Jahr schonmal generieren konnte, damals ging es.
Ich nutze Office 2000.
Danke im Voraus für die Hilfe!
Gruß, Katharina28. März 2007 um 10:09 #143585UnbekanntParticipantHi Outlook-Freude,
ich habe mittlerweile festgestellt, dass das Programm bei einem Kollegen,
der Office 2003 installiert hat, problemlos funktioniert.
Hat jemand eine Idee, wie ich den Unterschied überbrücken kann?
Ist das vielleicht nur eine Sache von einer kleinen Einstellung? Oder kann man
da gar nichts tun?Für jeden Ratschlag wäre ich dankbar!!
Katha1. August 2007 um 10:56 #147881UnbekanntParticipantHi,
ich versuche, in Excel im VBA-Code eine Mail über Outlook zu versenden. Bei normalen Mails, die ich komplett im Code zusammenbaue, funktioniert das auch problemlos. Jetzt will ich aber keine leere Mail erstellen, sondern eine neue Mail auf Grundlage einer Vorlage. Ich verwende folgenden Code:
[code]
Dim objOL As New Outlook.Application
Dim objMail3 As MailItem
Dim Vorlage As String
Vorlage = \“J:\\Sprache\\Translation.oft\“
Set objMail3 = objOL.CreateItemFromTemplate(Vorlage)
objMail3.To = \“Robert Meier\“
objMail3.Display
[/code]Bei der Zeile \“Set objMail3 = objOL.CreateItemFromTemplate(Vorlage)\“ bekomme ich dann aber immer folgende Fehlermeldung (nachdem bereits dei Makro-Sicherheitsabfrage für die Vorlage erschien!!):
Laufzeitfehler \‘-1698234281 (9ac70057)\‘:
Interner MAPI-Fehler: Einer Funktion wurde ein ungültiger Parameter übergeben. Wenden Sie sich an Ihren Administrator.Was soll das bedeuten? Ich habe im Internet keine passende Lösung gefunden. Ich bin mir jedoch sicher, dass ich die Mail auf Grundlage dieser Vorlage vor etwa einem halben Jahr schonmal generieren konnte, damals ging es.
Ich nutze Office 2000.
Danke im Voraus für die Hilfe!
Gruß, Katharina3. April 2011 um 23:14 #185718UnbekanntParticipantper VBA geht es auch so:
here we go: this works now fine in my access97 app:Function ThunderbirdMail(strAn As String, strCC As String, strBCC As String, strBetr As String, strBody As String, strAttPfad As String)
Dim strThunderPfad As String
Dim strShell As String
Dim strEmailpth as String\’compose-parameters: \“to=\’john@example.com,kathy@example.com\‘,cc=\’britney@example.com\‘,subject=\’dinner\‘,body=\’How about dinner tonight?\‘,attachment=\’C:\\temp\\info.doc,C:\\temp\\food.doc\’\“
\‘ check your correct apllication-path here:
stremailpth= \“C:\\programme\\thunderbird\“
strThunderPfad = \“\“\“\“ & stremailpth & \“Thunderbird.exe \“ & \“\“\“\“\’strAn = \“my email adress,\“ \’seperate multiple receivers with \“,\“
\’strBetr = \“my regard\“
\’strBody = \“my message\“
\’for ecel users, if certain range of cells shall be inserted in the message:
\’strBody = Range(\“A1\“).Value & \“ \“ & Range(\“C4711\“).Value & \“ \“ & Range(\“X007\“).ValuestrShell = strThunderPfad & _
\“ -compose \“\“\“ & _
\“to=\’\“ & strAn & \“\‘,\“ & _
\“cc=\’\“ & strCC & \“\‘,\“ & _
\“bcc=\’\“ & strBCC & \“\‘,\“ & _
\“subject=\’\“ & strBetr & \“\‘,\“ & _
\“body=\’\“ & strBody & \“\‘,\“ & _
\“attachment=\’\“ & strAttPfad & \“\’\“ & _
\“\“\“\“
\’MsgBox strShell \’just to check wether all this looks correct
Call Shell(strShell, vbNormalFocus)
End Functionviel Erfolg
- AutorBeitrag
