Vous êtes ici Forums
  |  Connexion
 Forums
HomeHomeForums DNNForums DNNDéveloppementDéveloppementRécupération des paramètres SMTPRécupération des paramètres SMTP
Précédente
 
Suivante
Nouveau message
16/04/2010 18:33
 

Bonjour,

Dans le développement de mon module, j'ai besoin d'envoyer un mail. Le code suivant foncitonne.
Services.Mail.Mail.SendMail(UserInfo.Email, "toto@fai.fr", UserInfo.Email, "", Services.Mail.MailPriority.Normal, txtSubject.Text, _
          Services.Mail.MailFormat.Html, System.Text.Encoding.UTF8,
txtBody.Text, "", "192.168.0.2", "", "", "")

Je voudrais récupérer le "SMTP Server and port" du "Host settings" afin de remplacer l'adresse en dure (ainsi que les paramètres d'envoi : authentication, username,...)
Je voudrait aussi récupérer l'adresse mail de l'Admin ou Host.

Quelqu'un sait-il comment faire ?
(note : je suis sur DNN V4.7.0

Merci
Vincent

 
Nouveau message
20/04/2010 15:42
Réponse Acceptée 
C'est la fonction par défaut Vincent.
 
Public Function SendMail(ByVal MailFrom As String,
ByVal MailTo As String,
ByVal Cc As String,
ByVal Bcc As String,
ByVal Priority As DotNetNuke.Services.Mail.MailPriority,
ByVal Subject As String,
ByVal BodyFormat As DotNetNuke.Services.Mail.MailFormat,
ByVal BodyEncoding As System.Text.Encoding,
ByVal Body As String,
ByVal Attachment As String,
ByVal SMTPServer As String,
ByVal SMTPAuthentication As String,
ByVal SMTPUsername As String,
ByVal SMTPPassword As String) As String
Membre de DotNetNuke.Common.Globals
 
Pour le mail du portail : 
Dim settings As PortalSettings = PortalController.GetCurrentPortalSettings()
Dim email as String = settings.Email
 
Seb
 
Nouveau message
20/04/2010 19:03
 
Merci pour la réponse.
 
Mais je ne comprends pas "par défaut" : il faut bien lui indiquer le SMTPServer pour la fonction mail. ce n'est pas un paramètre optionnel.

J'ai donc réussi par :
Dim Portail as new Entities.modules.portalModuleBase
Portail.portalSettings.hostSettings.item("SMTPServer").ToString()
 
Nouveau message
22/04/2010 18:16
 

Bonjour,

Par défaut signifie que si tu ne spécifie PAS les paramètres SMTP, ils seront automatiquement remplacés par ceux du host. C'est ce que j'utilise dans Store.

Gilles

 
Nouveau message
10/05/2010 15:53
 
If Mail.IsValidEmailAddress(Me.objMessage.Emailto, Me.PortalId) _
                   And _
                   Mail.IsValidEmailAddress(Me.objMessage.Emailfrom, Me.PortalId) Then
 
                    Dim strResult As String = Mail.SendMail(Me.objMessage.Emailfrom, _
                                  Me.objMessage.Emailto, _
                                 "", _
                                  Me.objMessage.Title, _
                                  Me.objMessage.Body, _
                                  Nothing, "", Host.Host.SMTPServer, Host.Host.SMTPAuthentication, Host.Host.SMTPUsername, Host.Host.SMTPPassword)
 
 
                    Me.pnl_Send.Visible = False
                    Me.pnl_success.Visible = True
                    Me.lbl_Success.Text = Localization.GetString("Success.Text", Me.LocalResourceFile).Replace("{0}", Me.objMessage.Title_OTS).Replace("{3}", Me.objMessage.URL_OTS)
 
 
                Else
                    ' Adresse email invalide
                    Me.lbl_error.Visible = True
                    Me.lbl_error.Text = Localization.GetString("WrongEmailFormat.Error", Me.LocalResourceFile)
 
                End If
 
Précédente
 
Suivante
HomeHomeForums DNNForums DNNDéveloppementDéveloppementRécupération des paramètres SMTPRécupération des paramètres SMTP