Microsoft Excel

Herbers Excel/VBA-Archiv

xlDialogSendMail - Passwort übergeben

Betrifft: xlDialogSendMail - Passwort übergeben von: texas
Geschrieben am: 19.08.2007 16:39:00

Guten Tag allerseits:

Ich habe eine Frage bezüglich des Dialoges xlDialogSendMail:

Mein momentanes Makro für das Senden der aktuellen Arbeitsmappe an eine bestimmte E-Mail-Adresse lautet folgendermassen:

Application.Dialogs(xlDialogSendMail).Show "xxx@yyy.com"

nun hat sich das Firmennetzwerk leider so verändert, dass beim Öffnen des Outlooks ein Passwort abgefragt wird.

Meine Frage: Kann dieses Passwort auch mit dieser Codezeile übergeben werden (hartcodiert oder besser aus einer bestimmten Zelle ausgelesen)?
Oder gibt es alternative Möglichkeiten?

Danke für die Antworten

  

Betrifft: AW: xlDialogSendMail - Passwort übergeben von: Gerd
Geschrieben am: 19.08.2007 17:07:10

Hi,

"Oder gibt es alternative Möglichkeiten?"

Nein!

mfg Gerd


  

Betrifft: AW: xlDialogSendMail - Passwort übergeben von: texas
Geschrieben am: 19.08.2007 17:16:32

d.h. mann kann hier überhaupt nichts machen?


  

Betrifft: AW: xlDialogSendMail - Passwort übergeben von: Gerd
Geschrieben am: 21.08.2007 17:27:48

Hi,

na, nach zwei Tagen ohne weitere Antwort überzeugt?

mfg Gerd


  

Betrifft: AW: xlDialogSendMail - Passwort übergeben von: texas
Geschrieben am: 22.08.2007 12:54:13

Hallo Gerd, bin nicht ganz überzeugt...

If IsNull(Application.MailSession) Then
Application.MailLogon "username", "pw", True
End If

Dim astrMailEmpfaenger(2) As String
If Application.MailSystem <> xlNoMailSystem Then
astrMailEmpfaenger(1) = "test@test.de"
astrMailEmpfaenger(2) = ""
Application.ActiveWorkbook.SendMail astrMailEmpfaenger(), _
"Test", False
End If

Dies löst mein Problem... demnach eine passende Alternative.

Danke trotzdem


 

Beiträge aus den Excel-Beispielen zum Thema "xlDialogSendMail - Passwort übergeben"