Re: Mit VBA mehrere Dateien per Outlook an mehrere Empfänger verschick

[Stefan Anderl]

"Oliver" <Oli...@discussions.microsoft.com> schrieb im Newsbeitrag
news:E25CBC03-1230-4823...@microsoft.com...
> Ich möchte per VBA verschiedene Excel-Dateien an verschiedene
> Emailadressen
> versenden. Die Dateien liegen alle in einem Verzeichnis. Die Zuordnung,
> welche Datei an welchen Empfänger geht, habe ich in einer Excel-Tabelle
> stehen (1. Spalte: Dateiname; 2. Spalte: Emailadresse). Außerdem möchte
> ich
> einen, für alle einheitlichen Text einfügen, der ebenfalls in der Datei
> steht. Vielen Dank für eure Hilfe, Oliver (Excel 2003)

Hallo, das ist das Grundgerüst:

sub email_Senden

Dim outlookvari As Object
Dim myitem As Object
dim i as integer

for i = 1 to xx 'xx ist dei Zahl der zu erstellenden Mails

Set outlookvari = CreateObject("Outlook.Application")
Set myitem = outlookvari.CreateItem(olMailItem)
myitem.Recipients.Add (Sheets("Tabelle1").cells(i,1) 'hier wird die
Mail-Adresse des Empfängers ausgelesen, hier in Zelle A1 des Blattes
Tabelle1!

myitem.Body = "Halli-Hallo" 'das ist der Text

myitem.Attachments.Add Sheets("Tabelle1").cells(i,2) Hier wird der Pfad zum
Anhang aus der Tabelle gelesen.
'Hier wird die Mail-Adresse des Empfängers ausgelesen, hier in Zelle A2 des
Blattes Tabelle1!

myitem.Send 'und raus ist die Mail!

next i

End Sub

Wichtig: In Excel muß als Verweis Outlook eingetragen sein!

Stefan

[Oliver]

Es funktioniert super - vielen Dank. Ich habe aber auch noch eine
Anschlussfrage. Ich muss bei jeder Email eine Sicherheitsabfrage beantworten:
"Eine Anwendung versucht, automatisch Nachrichten in Ihrem Namen zu senden.
Möchten Sie dies zulassen?" Kann man diese Frage unterdrücken bzw. per VBA
beantworten? Viele Grüße, Oliver

[Stefan Anderl]

"Oliver" wrote:

> Es funktioniert super - vielen Dank. Ich habe aber auch noch eine
> Anschlussfrage. Ich muss bei jeder Email eine Sicherheitsabfrage beantworten:
> "Eine Anwendung versucht, automatisch Nachrichten in Ihrem Namen zu senden.
> Möchten Sie dies zulassen?" Kann man diese Frage unterdrücken bzw. per VBA
> beantworten? Viele Grüße, Oliver
>

Unter www.microsoft.com/mspress/books/companion/5517.asp "download the book
sample files" gibt es ein Outlook-Formular, mit dem das gewünschte
einstellbar sein soll. Leider kann ich mich derzeit selbst nicht intensiv
damit beschäftigen.
Nach dem Installieren des Downloads findet man das Formular im Zielordner,
Chapter 05, Outlook Security Update, ADMPACK, einfach das Programm ADMPACK
ausführen.
Dann das Formular in Outlook als neues Formular des Dateisystems öffnen!

Stefan