Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei per Email verschicken - Sicherheitsabfrage

Datei per Email verschicken - Sicherheitsabfrage
07.12.2005 15:38:43
Patrick
Hallo,
da Ihr mir schon oft helfen konntet, zähle ich wiederum auf Euch.
Ich möchte eine Excel-Datei per Macro als Email verschicken. Das klappt auch wunderbar, jedoch bekomme ich zuvor eine Abfrage:
---------------------------------------------------------------------------
Ein Programm versucht, auf Ihre in Outlook gespeicherten E-Mail-Adressen zuzugreifen. Möchten Sie dies zulassen?
Falls dies....
---------------------------------------------------------------------------
Ich muß manuell den Zugriff gewähren und bestätigen. Kann man das umgehen oder ins Macro schreiben?
Hier das Macro:
' Outlook Applikation
Dim ool As Outlook.Application
Dim oInspector As Outlook.Inspector
Dim oMail As Outlook.MailItem
Dim myattachments As Variant
' Für Inputbox "EMailadresse-Änderung"
Dim Mldg, Titel, Voreinstellung, MailAdress
' Adresse anzeigen und Änderung ermöglichen
'Mldg = "Ist die angegebene Emailadresse richtig?"
Titel = "Mailadresse"
Voreinstellung = "test@test.de"
MailAdress = Voreinstellung
' Wurde Abbrechen gedrückt, dann alles beenden
'If MailAdress = "" Then Exit Sub
' Verweis zu Outlook + neue Nachricht
Set ool = CreateObject("Outlook.Application")
Set oMail = ool.CreateItem(olMailItem)
Set myattachments = oMail.Attachments
' Befreff-Zeile
oMail.Subject = "Vertrag / " & [bi1] & " / " & [h5] & " (" & Format(Date, "Short Date") & ")"
' An-Zeile (Empfänger)
oMail.To = MailAdress ' "g.huber@unilog.at"
oMail.Recipients.ResolveAll
oMail.Display
' Texteingabe (Nachricht selbst)
oMail.Body = "EDV-Code: " & [bi1] & Chr(10) & "Hotelname: " & [h5] & Chr(10) & "Gültigkeit: " & [h3] & "-" & [z3] & Chr(10) & "Check am: " & [a1]
anhang = ThisWorkbook.FullName
' Anhang
' Nachfolgend ein Beispiel. Suchen Sie sich eine Datei auf
' Ihrem Rechner aus - vollständiger Pfad muß mitangegeben
' sein.
' Es können auch weitere Dateien angegeben werden.
' Hierzu einfach mit myattachments.Add "?" fortsetzen.
myattachments.Add anhang
' Speicher freigeben
Set ool = Nothing
Set oInspector = Nothing
Set oMail = Nothing
Ich zähle auch Euch.
Gruß
Patrick

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
nicht vba-problem
07.12.2005 15:41:43
Mischa
hi,
das dürfte nicht ein vba-problem sein, sondern an deiner firewall liegen.
oder an deinem outlook. solche abfragen wurden erstellt, um das massenmailing von würmern zu verhindern.
mischa richter
AW: nicht vba-problem
07.12.2005 16:07:50
Patrick
Hallo Mischa,
ich habe ja auch nicht gesagt, es wäre ein VBA-Problem. Ich möchte es nur gerne mit VBA lösen.
Kann man nicht einfach diese Bestätigung per VBA übergeben, so daß ich diese nicht immer manuell durchführen muß? Das geht doch mit dem Blattschutz auch.
Gruß
Patrick
AW: nicht vba-problem
07.12.2005 17:13:18
Michael
hi,
übergeben kannste werte oder referenzen nur dann an andere anwendungen, wenn diese das auch erwarten. also zb. bei api-functionen geht das ja.
ich gebe nachstehend mal meinen code (vb6.0) bei, mit dem ich mails erstelle. der läuft unter outlook2000. es gibt einige unterschiede zu deinem, versuchs doch mal mit meinen objekten.!
Mischa

Private Sub SendMailMitOutlook2000 _
(ByVal Adressat As String, _
ByVal FahrtZielA As String, _
ByVal Fahrtag As String, _
ByVal Result As String, _
Optional ByVal Text2 As String, _
Optional ByVal AntragVom As String, _
Optional ByVal BenutzungsZeitraum As String)
If mdl_iniFile.bolEMailVersandMöglich = False Then Exit Sub
On Error GoTo ErrHndl2
'Diese Prozedur passt nur für Office 2000, also Version 9.0
'für 10.0 also XP müssten die Objekte leicht geändert werden
'    If Application.Version <> "9.0" Then
'        MsgBox "Für diese Office-Version (" & Application.Version & ")benötigen Sie ein Update des Planungsprogrammes!", vbCritical, "Kontakt zum Entwickler erforderlich:"
'        Exit Sub
'    End If
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim EmailAdressat1 As String
EmailAdressat1 = Adressat
Dim Betreffzeile As String
Betreffzeile = "Ihre Fahrzeugbestellung nach: " & FahrtZielA & " für den " & Fahrtag
Dim NachrichtenText As String
NachrichtenText = strBetreffzeileText1 & AntragVom & vbCrLf & vbCrLf & _
"Für Ihre geplante Dienstfahrt nach " & FahrtZielA & vbCrLf & _
"am " & Fahrtag & vbCrLf & _
Result & BenutzungsZeitraum & vbCrLf & vbCrLf & _
Text2 & vbCrLf & _
strGrussZeile
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
Set objOutlookRecip = .Recipients.Add(EmailAdressat1)
objOutlookRecip.Type = olTo
.Subject = Betreffzeile
.Body = NachrichtenText & vbCrLf      'ab version 1.6.2 mit Enter am Ende für die Anlage
'.Importance = olImportanceHigh
.Save
'.Recipients.Add (BCC_an_Entwickler)
'objOutlookRecip.Type = olBCC
'ab Version 1.6.2. bei Genehmigungsemail Anlage:
If mdl_iniFile.bolBeiGenehmgigungsEmailDateianlage = True And _
Text2 = strGenehmigungstext2 Then
.Attachments.Add mdl_iniFile.strPfadUndNameDAteianlageGenEmail ' , olByReference  ',, Len(NachrichtenText)
End If
.Save
'ab Version 2.6:
If mdl_iniFile.bolErstellteMailGleichSenden = True Then
.Send
End If
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
mdl_log.LoginOutAufzeichnen "Email erstellt an: " & EmailAdressat1 & ", Resultat: " & Result
Exit Sub
ErrHndl2:
MsgBox "Es trat ein Fehler beim Versand/Erstellen der EMail auf: " & vbCrLf & Err.Description, _
vbCritical + vbOKOnly, "Fehler beim Emailerstellen:"
mdl_log.ErrorAufzeichnen "Fehler beim Mailen: " & Result & Err.Description
End Sub

Anzeige
AW: nicht vba-problem
07.12.2005 17:24:16
Patrick
Hi Mischa,
kurze Frage: wo binde ich das Script ein?
Gruß
Patrick
AW: nicht vba-problem
07.12.2005 19:09:11
Mischa
hi,
dieser code dürfte in einem normalen modul von excel auch laufen.
musst halt den entsprechendne verweis auf die ms outlook lib setzen.
wenn du mit dem verweis probleme hast, maile ich dir mal den screenshot wie es aussehen muss.
mischa
AW: nicht vba-problem
07.12.2005 17:13:35
Michael
hi,
übergeben kannste werte oder referenzen nur dann an andere anwendungen, wenn diese das auch erwarten. also zb. bei api-functionen geht das ja.
ich gebe nachstehend mal meinen code (vb6.0) bei, mit dem ich mails erstelle. der läuft unter outlook2000. es gibt einige unterschiede zu deinem, versuchs doch mal mit meinen objekten.!
Mischa

Private Sub SendMailMitOutlook2000 _
(ByVal Adressat As String, _
ByVal FahrtZielA As String, _
ByVal Fahrtag As String, _
ByVal Result As String, _
Optional ByVal Text2 As String, _
Optional ByVal AntragVom As String, _
Optional ByVal BenutzungsZeitraum As String)
If mdl_iniFile.bolEMailVersandMöglich = False Then Exit Sub
On Error GoTo ErrHndl2
'Diese Prozedur passt nur für Office 2000, also Version 9.0
'für 10.0 also XP müssten die Objekte leicht geändert werden
'    If Application.Version <> "9.0" Then
'        MsgBox "Für diese Office-Version (" & Application.Version & ")benötigen Sie ein Update des Planungsprogrammes!", vbCritical, "Kontakt zum Entwickler erforderlich:"
'        Exit Sub
'    End If
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim EmailAdressat1 As String
EmailAdressat1 = Adressat
Dim Betreffzeile As String
Betreffzeile = "Ihre Fahrzeugbestellung nach: " & FahrtZielA & " für den " & Fahrtag
Dim NachrichtenText As String
NachrichtenText = strBetreffzeileText1 & AntragVom & vbCrLf & vbCrLf & _
"Für Ihre geplante Dienstfahrt nach " & FahrtZielA & vbCrLf & _
"am " & Fahrtag & vbCrLf & _
Result & BenutzungsZeitraum & vbCrLf & vbCrLf & _
Text2 & vbCrLf & _
strGrussZeile
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
Set objOutlookRecip = .Recipients.Add(EmailAdressat1)
objOutlookRecip.Type = olTo
.Subject = Betreffzeile
.Body = NachrichtenText & vbCrLf      'ab version 1.6.2 mit Enter am Ende für die Anlage
'.Importance = olImportanceHigh
.Save
'.Recipients.Add (BCC_an_Entwickler)
'objOutlookRecip.Type = olBCC
'ab Version 1.6.2. bei Genehmigungsemail Anlage:
If mdl_iniFile.bolBeiGenehmgigungsEmailDateianlage = True And _
Text2 = strGenehmigungstext2 Then
.Attachments.Add mdl_iniFile.strPfadUndNameDAteianlageGenEmail ' , olByReference  ',, Len(NachrichtenText)
End If
.Save
'ab Version 2.6:
If mdl_iniFile.bolErstellteMailGleichSenden = True Then
.Send
End If
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
mdl_log.LoginOutAufzeichnen "Email erstellt an: " & EmailAdressat1 & ", Resultat: " & Result
Exit Sub
ErrHndl2:
MsgBox "Es trat ein Fehler beim Versand/Erstellen der EMail auf: " & vbCrLf & Err.Description, _
vbCritical + vbOKOnly, "Fehler beim Emailerstellen:"
mdl_log.ErrorAufzeichnen "Fehler beim Mailen: " & Result & Err.Description
End Sub

Anzeige
AW: nicht vba-problem
07.12.2005 17:13:48
Michael
hi,
übergeben kannste werte oder referenzen nur dann an andere anwendungen, wenn diese das auch erwarten. also zb. bei api-functionen geht das ja.
ich gebe nachstehend mal meinen code (vb6.0) bei, mit dem ich mails erstelle. der läuft unter outlook2000. es gibt einige unterschiede zu deinem, versuchs doch mal mit meinen objekten.!
Mischa

Private Sub SendMailMitOutlook2000 _
(ByVal Adressat As String, _
ByVal FahrtZielA As String, _
ByVal Fahrtag As String, _
ByVal Result As String, _
Optional ByVal Text2 As String, _
Optional ByVal AntragVom As String, _
Optional ByVal BenutzungsZeitraum As String)
If mdl_iniFile.bolEMailVersandMöglich = False Then Exit Sub
On Error GoTo ErrHndl2
'Diese Prozedur passt nur für Office 2000, also Version 9.0
'für 10.0 also XP müssten die Objekte leicht geändert werden
'    If Application.Version <> "9.0" Then
'        MsgBox "Für diese Office-Version (" & Application.Version & ")benötigen Sie ein Update des Planungsprogrammes!", vbCritical, "Kontakt zum Entwickler erforderlich:"
'        Exit Sub
'    End If
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim EmailAdressat1 As String
EmailAdressat1 = Adressat
Dim Betreffzeile As String
Betreffzeile = "Ihre Fahrzeugbestellung nach: " & FahrtZielA & " für den " & Fahrtag
Dim NachrichtenText As String
NachrichtenText = strBetreffzeileText1 & AntragVom & vbCrLf & vbCrLf & _
"Für Ihre geplante Dienstfahrt nach " & FahrtZielA & vbCrLf & _
"am " & Fahrtag & vbCrLf & _
Result & BenutzungsZeitraum & vbCrLf & vbCrLf & _
Text2 & vbCrLf & _
strGrussZeile
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
Set objOutlookRecip = .Recipients.Add(EmailAdressat1)
objOutlookRecip.Type = olTo
.Subject = Betreffzeile
.Body = NachrichtenText & vbCrLf      'ab version 1.6.2 mit Enter am Ende für die Anlage
'.Importance = olImportanceHigh
.Save
'.Recipients.Add (BCC_an_Entwickler)
'objOutlookRecip.Type = olBCC
'ab Version 1.6.2. bei Genehmigungsemail Anlage:
If mdl_iniFile.bolBeiGenehmgigungsEmailDateianlage = True And _
Text2 = strGenehmigungstext2 Then
.Attachments.Add mdl_iniFile.strPfadUndNameDAteianlageGenEmail ' , olByReference  ',, Len(NachrichtenText)
End If
.Save
'ab Version 2.6:
If mdl_iniFile.bolErstellteMailGleichSenden = True Then
.Send
End If
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
mdl_log.LoginOutAufzeichnen "Email erstellt an: " & EmailAdressat1 & ", Resultat: " & Result
Exit Sub
ErrHndl2:
MsgBox "Es trat ein Fehler beim Versand/Erstellen der EMail auf: " & vbCrLf & Err.Description, _
vbCritical + vbOKOnly, "Fehler beim Emailerstellen:"
mdl_log.ErrorAufzeichnen "Fehler beim Mailen: " & Result & Err.Description
End Sub

Anzeige

307 Forumthreads zu ähnlichen Themen

Email Hyperlinke mit Betreff aus Dateiname&Registe
Patrick

Hallo miteinander
Ich versuche von der Excel Tabelle eine Email über einen Email Hyperlink zu starten. Diese Email soll automatisch im Betreff den Dateinamen der Exceltabelle und den Namen des aktiven Tablellenblattes/Registers enthalten.
Geht das und wie heisst der Hyperlink dazu ?
...
07.12.2008 15:18:33
Thread-ID: 1030869
3 Beiträge
Anzeige
excel-datei per email versenden
meixner

Hallo zusammen,
Habe ein Makro, dass eine Excel - Datei nach Aufmachen aktualisiert und dann per Email versendet, wenn ich dies anklicke.
Möchte, dass um eine bestimmte Uhrzeit z.B. 17.00 Uhr die Datei automatisch sich aktualisiert und versendet wird.
Habt ihr eine Idee?
wsZiel....
25.03.2009 18:13:18
Thread-ID: 1063913
2 Beiträge
Tabellenblatt per Mail versenden
Sandra

Hallo zusammen,
vor lauter Bäumen habe ich nix im Archiv gefunden (irgendetwas passte nie). Vielleicht hat ja jemand von Euch ein derartiges Makro schon einmal gemacht.
Ich möchte aus einer Datei ein Makro starten, was folgendes macht:
Ein Tabellenblatt dieser geöffneten Datei soll...
12.06.2009 15:45:33
Thread-ID: 1081014
4 Beiträge
Anzeige
Tabelle per Mail versenden
liese

Hallo,
habe folgendes Anliegen.
Ich möchte gerne, wenn eine Mappe geöffnet wird,
eine bestimmte Tabelle im Hintergrund mit dem
Standardmailprogramm ohne Rückfragen versenden.
Wie geht das.
Danke schon mal für Hilfe.
Viele Grüsse
Anneliese
01.01.1970 00:00:00
Thread-ID: 1139930
37 Beiträge
Copoe per Mail versenden
Paul

Hallo Excel-Freunde,
folgenden Code habe ich gebastelt um, gestartet über einen Button auf Sheet 1 eine Copy von Format und Werte des Sheets "Übersicht zu erstellen und diese dann frei von Macro's an die im Feld "MailAdd" stehenden Empfänfer zu senden
Das funktioniert soweit auch, nur k...
25.02.2010 10:04:02
Thread-ID: 1141285
2 Beiträge
x-beliebiege Datei als Hyperlink in E-Mail zeigen
Urmila

Hallo alle zusammen,
ich hoffe ihr könnt mir weiterhelfen.
Ich würde gerne in einer E-Mail nur einen Hyperlink zu einer Datei einfügen.
Das Problem ist nur, die Dateieindung kann immer anders sein, also doc, pdf, xls etc.
Pfad ist immer "C:\Test\", Dateiname steht in Spalte A, a...
08.04.2010 15:45:38
Thread-ID: 1150644
3 Beiträge
Autofilterergebnisse per Email versenden
Mister

Hallo,
ich stehe mal wieder auf'm Schlauch. Aus einer UF heraus filter ich Datensätze in einer Tabelle mit dem Autofilter. Ich möchte jetzt die gefilterte Tabelle per Mail versenden, möchte aber, dass nur die gefilterten Ergebnisse geschickt werden. Ich habe lange im Archiv recherchiert...
27.04.2010 13:47:28
Thread-ID: 1154064
4 Beiträge
Dateien mit Makros
Heinz A. Wankmüller

Hallo Excelfreunde,
ich habe ein Problem mit Dateien, in denen Makros vorhanden sind. Mein Chef hat seit gestern xl2002 installiert bekommen. Er kann jetzt keine Excel-Dateien öffnen, in denen Makros vorhanden sind. Auch der VB-Editor lässt sich nicht öffnen. Ich kann die Stelle, an der sich...
23.05.2002 07:31:21
Thread-ID: 122947
3 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
8
1
3
3
36
1
2
3
2
4
3
4
5
3
4
2
3
2
4
1
1
3
1
1